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BEGIN 
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; FACILITY 


ABSTRACT: 


COPYRIGHT (<) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS hen IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF a ye tt yeild NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
TRANSteRnee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELJABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i eeeeeeeeeeeeeeeeeeeneeeneeeneeeeeeeeteteeeeeeetereeeeeeeeeeeenereeeeeeeeeee 
i] 


Sochup/Restore 


This module contains the routines that restore a save set. 


ENVIRONMENT : 


VAX/VMS user mode. 


| AUTHOR: M. Jack, CREATION DATE: 03-Sep-1980 
i MODIFIED BY: 


v03-025 LyOsi5 Larry Yetto 23-JUL-1984 15:36 
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2.V4.0-74 
STORE. abet 


ix incremental restore's so that they do not look at the default 


directory and hence place files in the incorrect location. 
v03-024 LY0509 Larry Yetto 19=JUL-1984 08:39 


Add support for HSC Jenerated nonsequential physical save sets 


v03-023 LMP0272 L. Mark Pilant 
Modify BACKUP to always use a full FIB. 


v03-022 LY 481 Lore Yetto 27-APR-1984 08:34 
QAR # 2088 - the saveset being read is 


6-Jul-1984 8:53 
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v03-021 


v03-011 
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v03-020 


v03-008 LMP0044 L. Mark Pilant, 


-Sep- AX-11 - 
iESeort9Be QO21TE MHL BL age 32, 
week ne f then report an error if /ENCRYPT was not 


a i QAR # 1847 = Correct directory protection on newly 
greeted dir osgty 
ul. #18 - Do not attempt to mod ACL's on verify 


Lv04678 here 18-APR-1984 15:49 
Correct tengte fiel oy the attribute descriptor used 
in the Q10/10$ “nOsiFY to add ACL's 


pVOs? bor here 9-APR-1984 08:23 

ot the CREATE_DI ECTORY routine so that it leaves the direct 
le open when it™is done. This is necessary so that any ACL's 

on the old file can be propagated to the new one. 


v03-019 Lv0656 Larry Yetto 1-FEB-1984 10:16 


ake restore operation restartable 


v03-018 acs0380 Andrew C. Goldstein 9-Dec-1983 19:27 


Tolerate zero file ID in file attribute record 


v03-017 ACG0373 Andrew C. Goldstein, 12-Nov-1983 19:04 


Bug fixes to / INCREMENTAL handling to deal wit 
cones tng directory entries. Also swallow SS$_DIRNOTEMPTY 
errors in the incremental delete pass. 


v03-016 ACG0343 Andrew C. Goldstein, 19-Jul-1983 10:26 


Use NORECORD th to set backup dates; make /INCREMENTAL 
imply /OWNER=ORIGINAL 


v03-015 LMP0127 L. Mark Pilant, 6-Jul-1983 9:55 


Correct a bug that caused the ACL not to be written because 
of using the wrong 1/0 function codes. 


v03-014 ACG0340 Andrew C. Goldstein 22-Jun-1983 18:22 


Copy last track of MSCP disks in /PHYSICAL operations 


v03-013 genooes J. Eric Pollack, 23-Apr-1983 10:53 


d support for encrypted savesets. 


v03-012 ace0sse Andrew C. Goldstein, 20-Apr-1983 16:30 


d RMS journal flags 


ACGO313 Andrew C. Goldstein, 12-Feb-1983 16:28 
Add routine subtitles 


v03-010 MLJ0104 Martin L. Jack, 24-Jan-1983 


23:45 
lear the backup date of” “restored files except under /IMAGE, 
7 INCREMENTAL | 4 /RECORD 


v03-009 MLJ50598 Martin L. Jack, 13-Dec-1982 19:55 


Repair selected volume copy with ver rify. 


21-Oct-1982 15:45 
Add support for saving and restoring ACL*s. 
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v03-007 MLJ48500 Martin L. Jack, 17-Aug-1982 14:20 
ASS porentheses to prevent INCREMENTA SCAN from being called 


e wrong time. 


a a 
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L. Mark Pilant, 22-Jun-1982 10:30 
dd support for wildcard save set names on a LIST or RESTORE 
operation. 
v03-005 MLJ0089 Martin L. Jack, 22-Apr-1982 23:27 
Repair /CONFIRM for copy operation and extra directories. 


v03-006 ete 


V03-004 MLJ43240 Martin be Jack, 6-Apr-1982 2:46 
Avoid spurious EOFMISMATCH messages on a restore verify pass. 
v03-003 ACG0277 Andrew C. Goldstein, 30-Mar-1982 16:55 
Add BACKUPS$_SSCHANGE to List of continuable errors 


v03-002 MLJ0084 Martin L. Jack, 28-Mar-1982 1:08 
Update the pockup date of a directory file that was scanned 
during a /INCREMENTAL restore to record that it represents the 


uw 


most recent version. Peadiust the order of operations so that 
/OWNER=PARENT with an implicit directory creation works. 


v03-001 MLJ0082 Martin L. Jack, 16-Mar-1982 43:87 
Correct /OWNER=PARENT problem introduced by VO2-018. Extend 
NOFILES message to contain save set name string. 


' 
' 
' 
1 
i 
vo2-020 mL 0075 Martin L- Jack, 28-Jan-1982 20:35 
' 


e FIBSV_NORECORD. Implement version Limit handling via 
DIR_VERLIM and VERLIMIT attributes. 


v02-019 MLJ0072 Martin L. Jack, 19-Jan-1982 3:42 
Extend if existing file opened under /OVERLAY is too small. 


VO2-018 MLJ42936 Martin L. Jack, S-Jan-1982 19:40 
Create files initially with the correct owner UIC to avoid 
temporarily seneuatng (and possibly exceeding) the disk quota 
of the process executing a restore. 


V02-017 MLJ0062 Martin L. Jack, 2-Dec-1981 13: 
Implement /INCREMENTAL. Avoid spurious VBNMISS 
tape verify pass. 


V02-016 MLJ0054 Martin L. Jack, 15-Oct-1981 19:54 
Attempt non-contiguous create if contiguous create fails. 
pae‘seem /VOLUME. Implement /IGNORE=INTERLOCK. Correct 

v02-014 to include EFBLK. 


v02-015 MLJ0053 Martin L. Jack, 7-Oct-1981 19:27 
Rework algorithm in CHECK_EOF _BLOCK. 


v02-014 MLJ0048 Martin L. Jack, 28-Sep-1981 13:14 
Read attributes before 10$_MODi 
no longer protects HIBLK. 


v02-013 MLJ0040 Martin L. Jack, 3-Sep-1981 19:37 
Correct message following 108_ CREATE. 
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v02-012 MLJ003 Martin L. Jack, pn mgd 16:09 

Extensive rewriting to complete implementation. 
v02-011 MLJ0025 Martin L. Jack, Pies te 14:00 

Reorganize qualifier database. Correct oF problem with explicit 

directory creation introduced by v02- 
V02-010 MLJ0024 artin L. Jack, 27-Apr-1981 20:25 

Remove dynamic LOCAL. SAVE area, since it can now be local. 
v02-009 MLJ0022 erst nL. Jack, 21-Apr-1981 13:54 

Convert sree wt idcarding to use RMS. 
v02-008 MLJ0021 artin L. Jack, 20-Apr-1981 22:04 

Implement /TRUNCATE qualifier. 
v02-007 MLJ0019 Martin L. Jack, 7-Apr-1981 22:23 

Correct tests for continuation tape verify pass. 
v02-006 MLJ0018 Martin L. Jack, 7-Apr-1981 21:09 

Correct signal parameters. 
V02-005 MLJ0014 Martin L. Jack, 6-Apr-1981 23:27 

Correct and c yg bY VBN sequence-error messages and 

avoid spur fous EOF ISMATCH” messages on tape verify pass. 
V02-004 MLJ0012 rtin Jack, 27-Mar-1981 16:14 

Produce both CREATED oad * COMPARED messages for copy with verify 
v02-003 MLJ0010 Martin L. Jack, 25-Mar-1981 17:29 


Reorganize global storage. Changes for standalone operat en. 
Implement weet restore. Implement Listing concurrent with 
another operation. 


v02-002 MLJ0003 rtin L. Jack, 17-Feb-1981 18:36 
Correct nanditen” y DNF in compare operation 
v02-001 MLJ0002 Martin L. Jack, 14-Feb-1981 12:23 


Correct file selection in restore operation verify pass 
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T Restore a save set Ibege =-1984 00:21:13 AX-11 Bliss-32 V4.0-742 
yo2-000 ~3007 138% et Bey EBACKUP. SReIRESTORE .852¢1 
; 215 9 14 1 REQUIRE ‘SRC$:COMMON'; 
s 1§ 1 LIBRARY ‘SYSSLIBRARY :L 1B"; 
3 18 } : } REQUIRE ‘LIBS:BACKDEF'; 
> 21 1772 1 
3 0 1338 1 FORWARD ROUTINE 
3 1 1774 «4 INCREMENTAL _DELETE: 
3 § 1775—«(1 NOVALUE, ! Conditionally delete file 
; 1776 1 INCREMENTAL _SCAN: 
3 4 1777 «(1 NOVALUE, ! Execute wildcard access on directory 
3 5 1778 1 ASSIGN_VERIFY_CHANNEL : 
3 $ 1779 «1 NOVALUE, ! Assign channe| to input device for verify 
3 1780 1 COMPARE BLOCKS: NOVALUE, ! Compare two files 
; 8 1781 1 GET_ACP_ATTRIBUTES: 
3 9 17 ¢ 1 NOVALUE, ! Convert OUTPUT_ATTBUF for write attributes 
3 0 17 1 GET_PARENT_UIC, ' Get owner UIC Of parent directory 
3 1 178 1 CLOSE_RESTORE: NOVALUE, ' Close output file 
; 1785 «(1 F IN_RESTORE: NOVALUE, ! Finish restore operation 
: 1786 1 SELECT_FILE, ' Evaluate output selection criteria 
3 4 1 CHECK_EOF_ BLOCK:NOVALUE, ! Check EOF position in a compare 
; 5 1788 #1 CREATE_DIRECTORY: 
3 1789 #1 OVALUE, ' Create a directory 
; 7 1790 1 IMPLICIT_DIRECTORY ! Implicitly create a directory (DNF) 
; 238 1791 #1 INITIALIZE AND SELECT, ! Initialize FAB and select file 
>; 239 16 1 SELECT_INCREMERTA ! File selection for /INCREMENTAL mode 
> 240 1793 1 INCREMENTAL _DIRECTORY: 
; 241 1794 1 NOVALUE, ! Directory processing for /INCREMENTAL 
3 " ity? 1 CREATE_OR_OPEN_F ILE: 
: 26 1796 1 NOVALUE, ! Open output file 
: 246 1797 1 RESTORE_ERROR: NOVALUE, ! Handle asynchronous write errors 
: 245 1798 1 RESTORE_ONE_RECORD: 
3 246 1799 1 NOVALUE, ! Process one save set buffer 
3 247 1800 1 RESTORE_VERIFY_REEL: 
3; 2438 1801 1 NOVALUE, ' Driver for restore verify 
3; 249 1938 1 INIT_RESTORE: NOVALUE, ! Initialize restore module 
; 250 138 1 RESTORE _HANDLER, '! Handler for RESTORE, LIST, ANALYZE 
3; 251 1804 1 RESTORE: NOVALUE; ! Driver for restore 
BY 
> 254 1807 1 EXTERNAL ROUTINE 
; 255 1808 1 LIBSCVT_DTB: ADDRESSING_MODE (GENERAL), 
3 28 1809 1 ' Convert text to binary 
- oe 1319 i LIBSGET_COMMAND : ADDRESSING_MODE (GENERAL), 
; 258 1811 1 ! Get Line from SYSSCOMMAND 
3 as isig 1 ASSIGN_INPUT_ CHANNEL, ' Assign channel to input device 
: 260 1815 1 ASSIGN-OUTPUT_CHANNEL, : Assign channel to output device 
; 261 iste 1 CREATE_DI ! Create a directory 
; 6¢ 1815 1 CRYPTO-DECR_BLOCK: 
; 26 13i8 1 NOVALUE WEAK,  ! Decrypt one block 
3 264 13 1 CRYPTO_INIDEC: WEAK, . setup for decryption 
; 265 1818 1 CRYPTO CHKSAV, ! Check for encrypted save set 
3 66 1819 1 SYSSSETDFPROT, ' Get process default protection 
; 26 18 1 DEBLOCK: NOVALUE, ! Deblock seve set buffer 
3; 268 1821 1 FILE_ERROR: NOVALUE, ! Signal file-related error 
; $° 18 § 1 F me BAD BLOCK. ' Search for LBN in bad block table 
3 0 13 1 FREE BUFFER: NOVALUE, ' Free er 
; 271 1824 1 GET_BADBLOCKS, ! Get bad block information 
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EXTERNAL LITERAL 
BACKU 


Restore a save set 


GET_BUFFER, 
GET“SUMMARY ATTRIBUTES: 


NOVALU 
GET_VOLUME_ATTRIBUTES: 
NOVALU 
GET_FILE_ATTRIBUTES: 
N VALUE 
GET_FILE_EXT_ATTRIBUTES: 
NOVALUE, 
GET_PHYSVOL_ATTRIBUTES: 
NOVALUE, 
INIT_NAMEBLOCK: NOVALUE, 
MATC 
RESTARTABLE_CONDITION, 
TA_INIVOL: OVA 


STA_ 2 NOVALUE, 
STALINIT_HDRS: NOVALUE, 
STA_DISROUNT OUTEUT : 

STA.WRITEBOOT: NOVALUE, 
WAIT: OVALUE, 
WILD DIRECTORY: NOVALUE, 
GET_RESTART: NOVALUE ; 


BACKUP$_BADDATA 
BACKUPS“PHYDEVGEO, 
BACKUP ~BADBL OCK 
BACKUP$~EOF MISMATCH, 
BACKUPS” ¢ 
BACKUP$_INVATISTR, 
BACKUPS-INVF ID, 


BACKUP$~ 
BACKUPS"STARTVERIFY, 


K 
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Get buffer 

Get backup summary attributes 

Get volume attributes 

Get file attributes 

Get file attributes from extension record 


Get physical volume attributes 
Initialize extended name block fields 
Match file specifications 

Test if condition is restartable 
Initialize output volume ; 
Initialize output file headers 


Finish file structure on volume 
Write boot file LBN into boot block 
Wait for 1/0 operation in buffer 
Generate output wildcard directory 
Get restart option 
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RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 
¥Oe-000 ~35p-198e S:daide — PeAckurSAeSaesrOne Bases 
; 1 ; 1 BACKUPS _NONCONTIG, 

; 330 1 1 BACKUP$_NOSUCHRVN, 

; 1 1884 1 ACKUPS_INVATTVAL, 

: § 1885 1 yrs Seite ts 

3 1 § 1 BACKUPS_INCDELERR, 

3 1 1 BACKUPS_INCENTERR, 

3 5 1888 1 BACKUPS_INCBADDIR, 

3 1355 : BACKUPS_ENCSAVSET; 

3 8 1891 1 GSDEFINE(); ! Define global common area 

; 339 1 38 1 

; 340 1893 1 

3 «(341 1894 1 BIND 

3 1895 1 OUTPUT_F ILENAME= OUTPUT_ATTBUFCFAR_FILENAME): BBLOCK, 

3 1398 1 OUTPUT_RECATTR= OUTPUT_ATTBUFLFAR_RECATTRJ: BBLOCK, 

$ 44 189 1 OU ILECHAR= OUTPUT_ATTBUF CFAR_UCHAR): LOCK, 

3 45 1898 1 OUTPUT_PLACEMENT= OUTPUT_ATTBUFLFAR_PLACEMENTJ: BBLOCK, 

: r¢ 4 : OUTPUT_ACLSEGMENT= OUTPUT_ATTBUFLFAR_ACLSEGMENT] =: BBLOCK; 
3; 348 1901 1 

3; (349 1DRe 1 OWN 

3 50 1903 1 INCR_FIB: Bel ocKer 1esc LENeTU3 ! FIB for wildcarding 
3 33) 1904 1 INCR_RSA: VECTORCDIRSS_NAME +6 6yTE), ! Resultant string 
; 26 1905 1 INCR_RSS, ' Size of entire resultant string 
. 1906 1 INCR_NTS, ! Size of ‘'name.typ"’ portion 

3 354 1907 1 INCR_VER, ! Binary version number 

3 355 1908 1 INCR_BAKDATE: VECTOR(2); ! Backup date 

3; 356 1909 1 

3 Bor 1910 1 

3 398 1911 1 BUILTIN 

3; «359 a 1 INSQUE, 

3 art 1913 1 REMQUE, 

3 61 1914 1 3 
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RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 
VO2-000 INCREMENTAL DELETE = delete file for incrementa Hat 7 3 e088 BACKUP. SRC JRESTORE .832;1 
63 ZSBITL “INCREMENTAL_DELETE = delete file for incremental restore’ 
64 ROUTINE INCREMENTAL_DELETE: NOVALUE= 


3 1 
; 1 
* 1 
: 1 
oO 1 
3 1 
eo 1 
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3 1 
3 1 
re 1 
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3 1 
o 1 
oo 1 
: 1 
oO 1 
J 1 
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3 3 
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3 1 
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3 9 1 
; 390 1 
Phe 
3 3 1 
3 394 1 
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Oo 4 
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€ 1 
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; 1 
e 1 
oe 1 
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oO 1 
; 1 
; 1 
8 1 
* i 
oO 1 
vw 1 
3 1 
; 1 
a 1 
o 1 
3 1 
3 1 
: 1 
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! FUNCTIONAL DESCRIPTION: 
This routine cpnentrenethy deletes a file that is cataloged in a 

directory involved in a /INCREMENTAL restore. 


INPUT PARAMETERS: 
NONE 


OOOOOOOOO 


IMPLICIT INPUTS: 
INCR_FIB, INCR_RSA, INCR_RSS, INCR_BAKDATE. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
NONE 
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3 SIDE EFFECTS: ; 
4 If the backup date of the file is nonzero and is earlier than the 
: creation date of the save set, the file is deleted. 
94 =o 
94 
a pEGin 
95 94 (, INCR_BAKDATECLO] OR .INCR_BAKDATEC1]) NEQ 0 AND 
96 94 (, INCR_BAKDATEL1] LSSU .COR_O psrentitl OR 
397 94 . INCR~BAKDATEL1 FOL .COM_O_BSRDATEC1) AND 
4 4 - INCR_BAKDATECO) LSSU 7COM_O_BSRDATELO))) 
400 9 BEGIN 
401 9 LOCAL 
40 9 STATUS, ' General status variable 
40 9 OSB: VECTORC4, WORD), ' 1/0 status block 
404 9 FIB_DESC: VECTOR 24 i Descriptor for FIB 
405 9 : BBLOCKCFI@SC_LENGTH], | FIB 
$06 9 FNA_DESC: VECTOR § 4 !' Descriptor for filename 
40 9 RSA_DESC VECTOR(E2), ! Descriptor for RSA 
408 3 RSA? VECTORCNAMSC_MAXRSS BYTE; ! Resultant string 
9 
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41 9 ! file name string. 

414 9 ; 

415 9 FNA_DESC(CO) = .INCR_RSS; 
ols 9 FNA_DESCC1) = INCR_RSA; 
41 9 RSA_DESC 9 = NAMSC_MAXRSS; 
418 9 RSA_DESC = RSA; 
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TORE Restore a save set 


-PSECT COMMON,NOEXE, 


00000 GLOBAL_BASE: 


0 
8 
8 
8 


-BLKB 
LKB 
T: 
LKB 
T 


-BLKB 
WAIT: 


LIST: 
-BLK 


l 
B 
1 


00010 REREAD_WA 
00018 OUTPUT_WA 


00000 FREE_ 
00008 INPUT_ 


—_——-—---- 
RESTO Restore a save set ib-se =| 1: 
Vv "$00 INCREMENTAL DELETE = delete file for incrementa ety 7 of: £3; Mi 


LKB 
S008 Je-ulcaamne 
00030 JPI_DATE: 
00038 JPI_NODE “DESE: 
00040 JPI_CURPRIV: 
00048 SyYI “VERSIONS 


-BLKB 
004C SYI_SID:.B8LKB 
0050 RWSV_HOLD_LIST: 


00058 RwSv_ cRcig: ~~ 
00098 RWSV -AuTODIN: 
00008 RwS\ F1LESET ID: 
OO0EO RWSV_VOLUME ID: 
OOOEC RWSV_VOL NU ER: 
QGGEE RWSV _SEG' NUMBER: 
OOOFO RWSV_FILE NRBER: 
GOOFS RWSV_SAVE QUAL : 
OOOF8 RWSV_SAVE_FAB: 
QOOFC RWSV_CHAN: 
00100 RWSV_KOR’BtBS 
00104 RWSV_IN, SEQ: 
00108 RWSV_IN_SEQ 0: 
0010C RWSV_IN_XOR Sea: 
00110 RUSV_IN_KOR RFA: 
00116 RwSV _LOOKAREAD: 
00117 RWSV_ “norstiee 
00118 RWSV_IN_G OUP sift: 
0011¢ RWSV_IN_ERRORS 
0011€ RUSV_IN_KORUSE : 
00120 RWSV_IN_ORGERR: 
~BLKB 


"Oo 2 @ RR &© @& OO 
-> + 


"~~ = 
~ 


on. es Fk RR PR Be 


- 


2 
8 


AX-11 Bliss-32_V4.0-742 
BACKUP.SRCJRESTORE .B32;1 


row 


- delete file for incrementa ifese 305-1 38c ae £8: 3 BACKUP SREIR er bRe 
00128 RWSV_IN_ “+ 
0012C RWSV_IN_ vBN 8: 
00130 RWSV_ALLOC: 
00134 RWSV_EOF: 
00138 RWSV_OUT “Sea: 
0013C RWSV_OUT_VBN: 
00140 RWSV_OUT “BtoeK. COUNT: 
00144 RUSV OUT“ ERRORS: 
00146 ste conte Wat 
00148 RWSV_OUT_GROUP_COUNT: 
00149 RUSV_PADDING: 


0014C QUAL:  .BLKB 
0018C COM_SSNAME: 


Ms -BLKB 
001C4 COM_VALID TYPES: 
00106 COM_FLAGS: if 
001¢8 COm_ PADDING: 
001C9 COM_BUFF “COUNT: 
QO1CA COM_I _sei COUNT: 
001CB COM_O -sei COUNT: 
001CC COM_I SIRNAS? 
00108 COM_O_ STAUCNAME 
001€4 COM_O BSADATE: 
OO1EC ALT_SSNAME : 

LKB 32 
0020C INPUT FUNC: - 
00200 INPUT ae’ 
0020E OUTPUT Fine . 
OO20F FAST =STRUCLEV: 
00210 INPUT BEG: 

BLK 
00210 INPUT_CHAN: 
-BLKB 


- fF FF PF EF SH 


“On ~~ #& 


_ 
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r-oeewr— = 


aw 
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Tat DELE é - delete file for incrementa 1-00-1986 99: % MB 
00214 INPUT FLAGS: 
00216 INPUT PADDING: 
00218 INPUT Faas 
0021¢ ieut_aee 
00220 INPUT _BCBe 
00224 INPUT QUAL: 
00228 INPUT BAD: 
0022¢ INPUT BLOCK: 
00230 INPUT_MAXBLOCK: 
00234 INPUT MEDIA ID: 
00238 INPUT _NAREDESC: 
00240 INPUT_STATBLK: 
00248 INPUT “wit bee: 
00248 INPUT -cniDATE: 
00250 INPUT REWDATE: 
00258 INPUT AENPDATE: 
00260 INPUT _BAKDATE: 
00268 INPUT -FiEOuNeR: 
0026C INPUT_FILECHAR: 
00270 INPUT “peiATt: 
00290 INPUT_HDR_END: 
00290 INPUT_END: _ 
00290 INPUT_PROC utr: 
00294 INPUT “PLACERENT: 
0029¢ INPUT voi 8t: 
002A4 INPUT PLACE TEN: 
002A6 INPUT “pADBING.. 2: 
002A8 OUTPUT pi: 
002A8 OUTPUT “cide 


2 ew eerecmennrererererrrnep 


wa 
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AX-11 Bh ies =32 v4.0-742 e 
BACKUP. SRC IRE STORE .B32:1 aoe of | 
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i iiss 
ETE = delete file for incrementa 


O02AC 
OO2AE 
00280 
00284 
00288 
0028C 
002c0 
002C4 
0028 
o02cc 
00204 
00364 
00364 
00368 
0036C 
00370 
00374 
00378 
0037¢ 
00380 
00384 
00385 
00386 
00388 
00388 
0038C 
00390 
00394 


w$p-198e 21:46:26 


OUTPUT “finesse 
OUTPUT “PADDING: 
OUTPUT _FAB: 
output wine 
ouTPuT_BtB: 
OUTPUT “QvAL: 
OUTPUT “pipe 
OUTPUT “piptne 
OUTPUT RARBLOCK: 
OUTPUT “peVEEDM: 
OUTPUT “aitbar 
OUTPUT “fips 
LIST _rortites: 
LIST “worstiee 
VERIFY -Fi8: % 
VERIFY use COUNT : 
VERIFY_QUAL: 
COMPARE BB: 
FAST _puriehe 
FAST “purien sizes 
FAST_RVN: 
FAST “PADDENG. 
pin_vERLinits 
FAST VOL_BEG: 
FAST_IMAP_ SIZE: 
FAST IMAP: 
FAST_HDR “OFF SET: 
FAST_BOOT CBN: 
-BLKB 


on nr er RF RF RF eH 


AX=11 Bliss-32 V4.0-742 
BACKUP. SRC JRESTORE .832; 1 


tee 


= delete file for incrementa Igo seo-1984 ie £8: 3 BACKUPT SRE RESTORE Boe 
00398 FAST_VOL iy? 
00398 JOUR _BurfER: 
0039C JOUR_DIR: 
OO3A0 JOUR_HIBLK: 
OO3A4 JOUR_EFBLK: 
OO3A8 JOUR_ “eit 
OOSAC JOUR it 
OOSAE JOUR_ “weitt 
00380 JOUR "stadt eev: 
00382 JOUR -couit: . 
00383 JOUR_ amet 
00384 JOUR_EXSZ: 
00386 JOUR _PADIIN: 
00388 CHKPT “HIGH SP: 
003BC CHKPT_LOW SP: 
003CO CHKPT STACK: 
003C4 CHKPT vais: 
003C8 CHKPT _stAtus: 


OO3CC DIR_BEG: “BKB 
it C DIRCHAN: 


-BLKB 
90300 DIR_NAM: .BLKB 
0304 DIR-DEV_DESC: 


00308 pin se. bine” 
003€0 DIR_SEL.ATY: 
003€8 DIR_STRUCLEV: 
003E9 DIR_LEVELS: 
OO3EA DIR FLAGS: ; 
OO3EB DIR_STATUS: 
OO3EC DIR “STRING? 
0052C DIR_STACK: 


we = = - wowmr er or F FF FNHMNH HK BH NNN RK KKK OS 
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$T Restore a save set i§-se =| - P 
VOe-008 INCREMENTAL DELETE = delete file for incrementa 300-1382 98 £8; Mi BACKUPS sR tir He ORE” B5oe1 sete 3} 
fine 612 
790 DIR_SP: 4 
ies4 DIR-SEL_ MAE 
DIR_END: 

$0738 DIR- RiCLW AE 
0078C INPUT amy 
007C0 ouTPuUT nit: 

LK 
007C4 CURRENT At: 
007C8 CURRENT te 
007CC CURRENT WB 
00700 ACL_FIB ae tt 

0708 ACL_FIB: LKB 
OOB18 ACLILENGTR 


36 


= 


.BLKB 
0081C ACL_BUFFER: 
-BLKB 
00820 CRYP_IN_CONTEXT 
-BLKB 
00824 CRYP_OU_CONTEXT: 
:BLKB 
00828 CRYP_DA_CONTEXT: 
-BLKB 
0082C CRYP_DATA ENCIV: 
00834 CRYP_DATA Cope: 
00838 CRYP_DATA KEY: 
00840 CRYP_DATA Iv: 
00848 CRYP_DATA_CKSM: 
-BLKB 


. ee 
- oowrt-wnr F& F&F Ff F OO fF FF HF S&S 


.PSECT DATA,NOEXE,2 
00000 INCR_F IB: 
00040 INCR_RSA: 


-BLK 6 
$3098 INCRRSSIen 


0009C INCR_NTS: 

QOOAO INCR_VER: 
-BLKB 

QO0A4 INCR_BAKDATE: 
-BLKB 


LKB 64 


or fF & 


R stone 


H 5 
16-Sep- 


«PSECT CODE ,NOWRT,2 
$90 P.AAB: .ASCII \!ADIAS\ 
BLKB 


008 P.AAA: “LONG : 
C SADDRESS P.AAB ; 


OUTPUT _F ILENAME= OUTPUT _ATTBUF 
pureut “RECATIRE OUTPUT_ATTBUF +1 
OUTPUT~FILECHAR= OUTPUT_ATTBUF +100 
OUTPUT"PLACEMENT= OUTPUT_ATTBUF +8 
OUTPUT~ ~ACL SE a OUTPUT _ATTBUF +128 


53 44 21 44 41 21 3 


90000000" 


-EXTRN LIBSCVT_DTB L1BSGET COMMAND 
“EXTRN ASSIGN_INPUT_CHANNEL 

-EXTRN ASSIGN-OUTPUT_ CHANNEL 

sEXTRN CREATE-DIR, CRYPTO CHKSAV 
“EXTRN SYSSSETDFPROT, DEBLOC 

-EXTRN FILE_ERROR F IND BADBLOCK 
“EXTRN FREE BUFFER, GET BADBLOCKS 
-EXTRN GET_BUFFER, GET SUMMARY_ATTRIBUTES 
-EXTRN GET-VOLUME_ATTRIBUTES 

~EXTRN GET_FILE_ prinout 

.EXTRN GET"FILE-EXT_ATTRIBUTES 
eEXTRN GET PHYS DOL ATTRIBUTES 
eEXTRN INIT_NAMEBLOCK, MATCH 

SEXTRN RESTARTABLE_CONDITION 

.EXTRN STA_INIVOL, STA_INIT_HDRS 
-EXTRN STA~ DISMOUNT OUTPUT ~ 

-EXTRN STA WRITEBOOT, WAIT 

~EXTRN WILB DIRECTORY, GET_RESTART 
EXT B NOT TEN NC 


E IRERR 
mph BACKUPS$_ Raf BACKUP$_VBNMISSING 


Bale ReACKUPS -WRITEATIR 


ALERR 
mares ie “HiBRATA 
-EXTRN BACKUPS PHYDEVGEO 


Ck BLOCK 
RN BACKUP$~EOFMISMATCH 
-EXTRN BACKUPS~ 
RN BACKUPS"INVATTSTR 
N BACKUPS"INVFID, BACKUPS$_NOFILES 


DELETE = delete file for incrementa =300n 1383 TS BACKUP SRESR He SRE Bsoe1 asa a 


5 
Restore a save set Ig-Sep-19 4 00:21:13 AX-11 Bliss-32 v4.0-742 
INCREMENTAL DELETE = delete file for incrementa 3007138 3 foi08 EBACKUP~SRe RESTORE .852;1 
-EXTRN BACKUPS_STARTVERIFY 
-EXTRN BACKUP$-NONCONTIG 
-EXTRN BACKUP$-NOSUCHRVN 
SEXTRN BACKUPS_INVATTVAL 
-EXTRN BACKUPS INCDELET 
-EXTRN BACKUPS" INCDELERR 
-EXTRN BACKUPS~INCENTERR 
SEXTRN BACKUPS ~INCBADDIR 
‘ BACKUPS—ENCSAVSET 
SEXTRN SYSSFAO, SYS$Q10W 
“WEAK © CRYPTO_BECR BLOCK 
.WEAK CRYPTO" INIDEC 
O1FC 00000 INCREMENTAL_DELETE: 
«WORD Save R2,R3,R4,R5,R6,R7,RB 
38 000000006 00 9E 00002 MOVAB LIBSSIGNAL, RB 
0000000 EF 9€ 000 MOVAB ¢ BSRDATE+4, R7 
gp OOUrPEE' Ee NFR INEE EASON 
50 FC AG 66 c5 Ooi¢ Bist INCR_BAKBATE*4, INCR_BAKDATE, RO 
04 305% RET 
67 66 D1 00024 1$ CMPL NCR_BAKDATE+4, COM_O_BSRDATE+4 
0B iF 900 7 BLSSU _3$ 
01 13 00029 BEQL $ 
04 00028 RET 
FC OA? FC ab D1 00 ¢ 23 CHP JNCR_BAKDATE, COM_O_BSRDATE 
04 00033 RET 
AB AD £0 A6 DO 00034 38 MOVL INCR_RSS, FNA_DESC 
AC AD 98 Abd 9E 00039 MOVAB INCRIRSA, FNA-DESC+4 
AO AD FF 68F OA 9005 MOVZBL #2557 RSA 
AG OAD 6E 9E 0004 OVAB RSA, RSA_BDESC+4 
AB AD 9F 0004 PUSHAB FNA.DESC 
50 OOCC C7 DO O004A VL TPUT_NAM, RO 
Oc AO bb 0004F PUSHL 12(RO) 
7E AO 9A 90052 MOVZBL 11(RO), =-(SP) 
AQ AD 9F 00056 USHAB RSA_DESC 
AO AD 9F 00059 PUSHAB RSA7DESC 
99 AF 9F 0005C PUSHAB P.ARA 
000000006 00 06 FB 0005F CALLS #6, SYSSFAO 
FO AD 40 BF 9A 00066 MOVZBL #64, FIB_DESC 
F4 OAD BO AD 9E 006 v FB. FIB“DESC +4 
8F 00 6E : 00 2C 00 t MOVCS #0, (SP)7 #0, #64, FIB 
B4 AD eFSe C6 70 79 MOVO  INCR_FIB+4, FIB+4 
BC AD FFOG 6 20 0 7F OV INCRTFIB+12, F1B+12 
7E 7C 09 ; €LRQ = = (SP) 
AS AD OF 9 PUSHAB FNA_DESC 
FO «OAD OOF 99 C PUSHAB FIB DESC 
7E 7¢ f CLRQ ss =( SP) 
£8 AD i 6 1 PUSHAB 105 
7E 135 BF 3¢ 00094 MOVZ2WL #309, -(SP) 
0t0 C7? dD 00099 PUSHL OUTPUT_CHAN 
E D4 0009D CLRL isp) 
000000006 00 OC FB 0009F CALLS #12, SYS$Q10W 


ve 


————------------- 
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ST Restore a save set Ibege -1 221: AX-11 Bliss-3 
VOe-000 INCREMENTAL DEL TE = delete file for incrementa ~3007 1382 Mie ide YBACKUP SRE RE 
7 50 €9 BLB STATUS, 4$ 
0 re AR SE SOR RE Tose erat 
00002174 8F p 4$ CMPL =‘ STATUS, 78564 
8 BEQL 6$ 
0 go B9 PUSHL STATUS 
AO AD OF 8B PUSH RSA_DESC 
1 OO ef PUSHL @ 
00000000G 8F DD be PUSHL #BACKUPS_INCDELERR 
68 4 fe it cyte #4, LIBSSIGNAL 
OE FFOF C7 01 ! 8 CA 5$: BC #1, QUAL+11, 6$ 
AO AD SF 0000: PUSHAB RSA_DESC 
1 DD D PUSHL 41 
00000000G 8F DD 0000 PUSHL ACKUPS$_INCDELETE 
68 3 FB 00008 CALLS #3, LIBSSIGNAL 
04 OOODE 6$: ET 


3; Routine Size: 223 bytes, Routine Base: CODE + 0010 
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kK 5 
save set 16-Sep-1984 00:21:13 AX-11 Blis 
NTAL. SCAN = scan directory for increment 82368713 4 3 e088 BACKUP .SRC 
ZSBTTL *INCREMENTAL_SCAN = di for i t ' 
ROUTINE INCREMENTAL~SCAN: wovALUES py wapgtepsetiong: Mnwante 


* 
a 


FUNCTIONAL DESCRIPTION: 
This routine executes a wildcard IO$_ACCESS on a directory involved 
in a /INCREMENTAL restore. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
INCR_FIB, INCR_RSA, INCR_RSS. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
INCR_FIB, INCR_RSA, INCR_RSS, INCR_NTS, INCR_VER, INCR_BAKDATE. 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL 
F IB_DESC vVECTOR(2], ! Descriptor for FIB 
FNA_DESC VECTOR ¢] ! Descriptor for filename 
FNA: VECTOR YTE), ' Filename 
FILECHAR $BBLOCK(4), i File characteristics 

TR: BLOCKVECTORC3,8,BYTE), | Attribute list 

STATUS, ' General status variable 
10SB: VECTORC4 ,WORD); ! 1/0 status block 


! Init the file ID and backup date to zero for predictable values 
: in cases of error. 


—ZZ 
ao 
PP] 
@: 
mo 


0] = INCR_BAKDATET1 
= FIBSC_LENGTH; 


sss a Oe 


NA; 
= *e,e;"; FNAC4] = ‘#'; 


ATRSC_BAKDATE; 
ATRSS-BAKDATE; 
NCR_BAKDATE; 
ATRST_UCHAR; 
ATRSS-UCHAR; 


—— Aner orm 


AT 


fu FID_NUM) = INCR F JOCF }BSu_FID_SEQ) = INCR_FIBCFIBSW_FID_RVN) = 0; 


R prore 
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5 
ave se ~$e0~ 1986 90:71:13 orn Bliss-32 Sree goes 


v t if 
SCAN = scan directory for increment 5-Sep-1 BACKUP. SRC JRESTORE .832 


ARE: QUashtegt g "ecm 


STATUS = $QJ0W( 
FUNC=10$_ACCESS 
CHAN=. OUTPUT_CHAN, 


): 
IF .STATUS THEN STATUS = .JOSBCO); 


! If the Q10 comes back with NOSUCHFILE and a non-zero file ID, we 


: have hit a dangling directory entry. Treat it as an old found file. 


If .STATUS EQ 
+ ae FI 


OSUCHF IL 


SS$_N 
FIBSW_FID_NUM) NEQ 0 OR .INCR_FIBCFIBSB_FID_NMX) NEQ 0) 


L 

BC 
EGIN 

STATUS = SS$_NORMAL; 

INCR_BAKDATECOJ = .INCR_BAKDATECO) + 1; 


IF NOT .STATUS 

THEN 

BEGIN 

INCR_RSS = 0; 

IF .STATUS NEQ SSS_NOMOREFILES AND .STATUS NEQ SS$_NOSUCHF ILE 
FILE _ERROR(BACKUPS_READATTR, .OUTPUT_FAB, .STATUS); 

ELSE 


! If this is a directory file, set its backup date to -1 so that the 
incremental scan won't delete it. 


BEGIN 
LOCAL 


IF _.FILECHARCFCHSV Rinesvonys 
THEN INCR_BAKDATELT) = INCR_BAKDATELO) = -1; 


! Pick name and type out of the resulting filename string, and 
convert the version number to binary. 


fr RSS, INCR_RSA, %C';"); 


a 5 
: set Tg-gep~ 1386 90:71:13 reset Oi legen V4.0-742 Page (fi | 


v 
SCAN = scan directory for increment Sep-1984 6:26 BACKUP. SRCIJRESTORE .B32;1 


4 INCR_NTS = .T = INCR_RSA; 
LIBSCVT_DTBCINCR_RSA + ,EINCR_RSS = (.1 + 1), .7 + 1, INCR_VER); 
D; 
END; 


OOEF -BLKB 1 
00000056 QO0FO P.AAC: .LONG 86 : 
00000000° O00F4 sADDRESS INCR_RSA 3 


000C 00000 SUCRE RENTS, 20M 


wO Save R2,R3 3 
53 00000000° ef 0 0000 Mov INCR_BAKDATE, R3 ; 
5E C2 0000 SUBL2 #60, SP : 
FF62 «C3 D4 0000C CLRL = INCR_F B46 3 2057) 
FF60 «¢ 84 90016 CLRW = INCRTFIB+4 : 
63 7C 00014 CLRQ. = INCRTBAKDATE + 2058 
34 AE 40 BF 9A 00016 MOVZBL #64, ~FIB_DESC 3 2059 
38 OA FFSC 3 C3 3 0018 MOVAB. INCR_FIB F1B_DESC+4 + 2060 
@ AE 05 00 00021 MOVL #5, FNA_DES 3 2061 
0 AE 34 AE 9E 00025 MOVAB NA, FNA_DESC+4 + 2062 
24 AE 3B2A2E2A_ BF 0 002A MOVL #992620074, FNA + 2063 
8 AE A 90 00032 MOVE whe FNA+4 ; 
OC AE 00140008 &8F D0 00036 MOVL #1310728, ATR + 2066 
10 AE 63 i O03 MOVAB INCR BAKDATE, ATR+4 + 2067 
14 AE 00030004 BF D0 0004 MOVL #196812 + 2069 
18 AE 6E 9E 0004A »  MOVAB FILECHAR, ATR+12 : 2070 
1¢ AE OG OO04E CLRL ATR+16 > 2071 
7E b4 0051 CLRL = = (SP) + 2082 
10 AE 9F 00053 PUSHAB ATR ; 
9F AF 9F 00056 PUSHAB P.AAC ; 
F4 AS OF 00059 PUSHAB INCR_RSS ; 
3C AE. sO9F «0005C PUSHAB FNA_DESC ; 
48 AE OF 0005F PUSHAB FIB DESC : 
7E 7C 00062 CLRQ = =(SP) ; 
24 AE 9F 00064 PUSHAB 1088 ; 
32 DD 00067 PUSHL #50 ; 
00000000' i DD 00069 PUSHL OUTPUT_CHAN ; 
000000006 EP Boor Sees 1d. syssorow : 
8? 9 5 ig LBC 3s STAfuS 3 + 2083 
50 04 Ar C 00078 MOVZ2WL 10SB, STATUS ; | 
00000910  &F 5 p] OO7F 1$ CMPL STATUs, #2320 ; 2089 
11 0086 BNEQ g ; | 
FF60 «C3 b 0 TSTW INCR_F.1B+4 + 2090 | 
0 08C BNEQ $ ; 
FF6S f 9 9 5 TSTB JNCR_F1B+9 ; 
1 BEQL $ ; 
50 01 DO 0094 2s: MOVL #1, STATUS > 2093. 
: Dg 9 INCL INCR BAKDATE > 2094 | 
28 E 99 3$ BLBS  STATOS, 4$ > 2097 
Fe =6AS D4 0009C CLRL —sINCR_RSS 3 2100 
00000930 8F 50 D1 0009F (MPL - STATOS, #2352 ; 2101 


RESTO set -Sep-1984 1:13 AX-11 Bliss-32 V4.0-742 Pa 2 
yo -008 INCREMENTAL. oS tAN = scan directory for increment Ig se0-1984 9: 24 iM BACKUP .SRCJRESTORE .832; 1 vad ria 
1 A BEQL 7$ 8 
00000910 = aF 6 of OOS CPL + tee #2320 : 
D OOAF EQL ; 
0 Dd 00081 PUSHL stay Tus ; 2103) 
00000000" cf DD 00083 PUSHL ; 
000000006 8F DD 00089 PUSHL MRACKUPS A READATTR : 
000000006 00 03 FB O00BF CALLS FILE-ERROR : 
04 O0¢6 RET + 2097 
07 01. OA 5 £1 000C7 4$: BBC 45, FILECHAR+1, 5$ + 2114) 
b 1 CE 000CC MNEGL a, INCR_BAKDATE + 2115 
04 A 1 CE OOOCF MNEGL INCR-BAKDATE +4 ; 
FC AS D4 000; 5$: CLAL TNER VER” : 3121 
52 FO D0 Dd MOVL INCRTRSS, R2 + 2122 
FBO 32 p O0DA MOVL Re cRNTS : | 
9c AS 52 A 0000 Locc }§=—«_-s#59,_R2, “INCR_RSA : 2123, 
g 12 000 BNEQ 6$ 3 
D4 OO0E CLRL sR 3 
51 D3 OOE7 6$ 2) eS t 2124) 
2 00E9 BEQL «6 7$ : 
50 9C A i O0EB MOVAB INCR_RSA, RO + 2127 
FB A 51 5 § OOEF SUBL RO, T, INCR_NTS 3 
FC 60 AS) OOF O00F4 PUSHAB INER_VER : 2128 
01 Al 9F 000F7 PUSHAB 1(T) : 
52 9C A342 9E OOOFA MOVAB INCR_RSACR21, R2 ; 
5 01 Al H OOFF OV (T)> RO ; 
7E 52 30 C3 00103 SUBL RO. R2, -(SP) ; 
000000006 00 03 FB 00107 CALLS #3, LIBSCVT_DTB 3 
04 OO10E 7$: RET $ 2131 


; Routine Size: 271 bytes, Routine Base: CODE + OOF8 


| 


: A file attribute record is being processed. Determine whether a device 
: spenee eseurres when this file was saved, and if one did, reassign the 
. c inne . 


! 
if .QUALCQUAL OF 11) THEN RETURN: 


6 | 
REST Restore a save set Igege ~1984 00:21:13 AX-11 Bliss-32 V4.0-742 Page 23 
vo2~000 ASSIGN_VERIFY_ CHANNEL = assign channel for veri =3e0n 1382 90:25:38 BACKUP. SRCIRESTORE B32; 1 ~ BP 
3 ¢ 1 ; 1 SSBTTL BEST EN VER TET CHANEL = assign channel for verify pass’ 
: ; ? : ROUTINE ASSIGN_VERIFY_CHANNEL (NEW FILE): NOVALUE= 
: 585 5 +4 
; 8 133 1 | FUNCTIONAL DESCRIPTION: 
; 588 1 1! This routine assigns a channel to the input disk during a save set 
; 4 18 ’ verification pass. 
: 591 141 1 | INPUT PARAMETERS: | 
3 4 136 1? NEW_FILE - True if a new file is being started, false if this 
: a37 13? ; } is the initialization call. 
; 295 145 1°! IMPLICIT INPUTS: 
Bo Mio 
: 234 148 1 | OUTPUT PARAMETERS: 
3 he 12 : NONE | 
: 601 131 1! IMPLICIT OUTPUTS: 
i 2 188 7 i _— | 
> 604 154 1! ROUTINE VALUE: | 
3 eRe 13? : : NONE 
: 607 133 1 i SIDE EFFECTS: 
; 608 188 1! NONE 
3 09 159 1! 
g \9 160 1 !-- 
; $162 2 BEGIN 
: 818 gies 3 LOCAL 
: 14 5164 STATUS; ' Status variable 
3 i 3166 
; 9 18? 5 1 .NEW_FILE 
3 18 168 THEN 
3 19 169 BEGIN 
: $5 in 
: 1 
: 638 138 
g 4 174 
3 5 ! 5 
; $ 179 
: 178 
é 179 
s 1 4 
3 1 4 
3 1 4 
; 1 4 
3 1 : 
$ 1 
: 1 
: 1 
: 1 


APAAAAAAPSAAPAAAAAAAAAAAOAAAAAAA SH 


VERIFY_USE_COONT = .VERIFY_USE COUNT + 1; 
4 IF .VERIFY-USE_COUNT LEQ .VERIFY_QUALCQUAL_USE_COUNT] THEN RETURN; 
: ; WHILE gVERIFY_USE_COUNT GTR .VERIFY_QUALCQUAL_USE_COUNT] DO 
1 1 IF .VERIFY QUALCQUAL_NEXT] NEQ 0 ! Protection 
3 ¢ THEN VERIFY_Q = .VERIFY_QUALCQUAL_NEXTJ; 
VERIFY_USE_COUNT = 1; 
END; 
5 5 END 
ELSE 
$ i BEGIN 


| 
' 
| 
| 
| 
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a save set Sep-19 2:21:13 AX-11 Bliss-32 V4.0-742 P 4 
ERIFY_CHANNEL = assign channel for veri ib-sen-1984 9: 7:46:26 BACKUP. SRC JRESTORE .832;1 - (85 
! Initialization. Reassign the suena! phot was assigned at the conclusion 
i of the previous verify pass. this is the first, assign the channel to 
i the first input device, but do not count a file, since no file is being 
; processed. 
IF .VERIFY_QUAL EQL 0 
HEN 
BEGIN 
VERIFY_QUAL = QUAL CQUAL_INPULLISTI: 
2 tl came = Q; 
END; 
Assign a channel to the device. 
if ~OUTPUT_CHAN >. 0 THEN SDASSGN(CHAN=.OUTPUT_C 
tat = ASSIGN. INPUT_ CHANNEL (VERIF Y_QUALCQUAL "BEV *DESC), OUTPUT_CHAN, 0, 0); 
THEN 
SIGNAL 
BACKUPS, OPENIN + STSSK_SEVERE, 1, VERIFY_QUALCQUAL_DEV_DESC], 
END; : 
-EXTRN SYSSDASSGN 
0004 00000 ASSIGN_VERIFY | 
WORD” Save R2 : 2133 
52 00000000° EF 9E 000 MOVAB VERIFY QUAL, R2 3 
2A 04 AC €9 BLBC = NEW_FICE, 6 > 2167. 
69 FDE7 C2 06 £0 $ #6 “QUAL $1 3; 2175 
FC OA2 (6 INCL VERIFY USE toon : 2176 
50 62 00 MOVL VERIFY_Q RO : 2177 
20 Ad FC OA? OT CMPL VERIFY “USE _COUNT, 32(RO) : 
| ae} | BLEQ 8s 3 
50 62 00 MOVL VERIFY_QUAL 3; 2179 
20 AO FC Ad D1 CMPL  VERIFY“USE “ eount, 32(RO) : 
1 15 BLEQ 4$ 3 
g ? TSTL (RO) ; 2181 
BEQL Fs 
6¢ 8 0 MOVL ane VERIFY_QUAL : 218 
FC COA 1 OD MOVL , VERIFY_USE_COUNT 3 18 
e9 11 BRB : 2179 
6 ° TSTL VERIFY_QUAL 3 2194 
0 BNEQ 4$ g 
62 FDD8 C 1] MOVL QUAL, VERIFY QUAL : 2197 
Fe Ae D4 CLRL VERIFY USE_COUNT > 2198 
Ye 04 MOVE 4 PUT CHAR, : 2205 
1 BEQL 3 
000000006 00 nd: CALLS SYSSDASSGN 
ee 7C CLRO = ae > 2206 


— Toe 


- 


Pere bere 


Vbe-000 ASSIGN VERIFY: CAARNEL = assign channel tor vert rm spalobe So:tarce — Percnup SaeSnesrone Bost 
" como § OMe | BRE AP et ey sa 
PUSH 


‘ = bbe 


000000006 oF DD OF 
000000006 00 FB ie 
04 0007C 6$ 


; Routine Size: 125 bytes, Routine Base: CODE + 0207 


$s 
ADDL aié. VERIFY_QUAL, =(SP) 
PUSHL 


SHL #BACKUPS_OPENING4 
CALLS #4, LIBSSIGNAL 


-y 


| 6 
REST Restore a save set ig-ge -1 2:21:13 AX-11 Bliss-32 V4.0-7462 P 6 
VO2-000 COMPARE BLOCKS = compare file blocks =3007 1382 OO fo:86 EBACKUP. SRE RESTORE BSoe1 es 8 
3 5 1 ZSBTTL "COMPARE BLOCKS = compare file blocks’ 
; ef § ! ROUT INE COMPARE “BLOCK (FBLOCK, LBLOCK): NOVALUE= 
: 1 tee 
i aE 
; 671 1 ! FUNCTIONAL DESCRIPTION: 
: $76 1 : This routine verifies blocks. 
: 674 7 1 ! INPUT PARAMETERS: 
; 675 a Fe FBLOCK - First block number to compare. 
; o76 5 : LBLOCK = Last block number to compare. 
3; 678 $ 1 ! IMPLICIT INPUTS: 
; 679 8 1! NONE 
; 680 9 1! 
3; 681 1 ! OUTPUT PARAMETERS: 
; re 1 ' NONE 
3; 684 : 1 ! IMPLICIT OUTPUTS: 
3; 685 : ' } NONE 
3 835 : 1 ! ROUTINE VALUE: 
3 ons : NONE 
; 690 § 1 ! SIDE EFFECTS: 
3; 691 40 1! NONE 
3 698 41 1! 
; 69 $5 1 !=- 
3 694 43° (1 
3; 695 44 BEGIN 
; 696 45 LOCAL 
3; 697 $8 STARTED BLOCK, ' Last block on which a read is started 
: 698 24 F INISHEB_BLOCK, ' Last block on which a read is done 
: 69° 248 “ ! Number of block to compare 
; 700 4 RING_A: VECTORE) ! Buffer queue for file A 
3 Ait 29 RING_B: VECTORC2); ! Buffer queue for file B 
3 708 334 
; 704 25 ' Initialize. 
3; 705 54 ! 
3 P06 55 STARTED_BLOCK = FINISHED_BLOCK = .FBLOCK; 
: 708 36 BLOCKS = .BBLOCKC.FREE_LYST(COJ, BCB_SIZE) / 512; 
: 7 
: 710 35 ! Form two rings of buffers. Each ring contains half the buffers. 
3 ag rt Start a read in each buffer. 
3 ag $6 RING Ato) s RING Att} = RING_A; 
3 716 6 RING_B = RING B[1) = RING B; 
> 715 64 2 DECR™I] FROM .COM“BUFF_COUNT/2 fo 1 DO 
; rs 5 BEGIN 
: 71 LOCAL 
; ui8 6 BCB: REF BBLOCK, ' Pointer to BCB . 
; 71 re N ' Number of blocks to read this pass 
: 720 3 STATUS; i Status variable 
: 721 0 
3: 722 71 


VO2-000 CORPARE.BLOCKS S*Sompare file blocks if sen 1944 BP foi28 — UBACKUPCSAESRE STORE BOos1 ne 


: z 3 ? IF .STARTED_BLOCK GTRU .LBLOCK THEN EXITLOOP; 
: 725 7 

3 f Compute the number of blocks to transfer. 
: 7 7 N= BLOCK 

: 7 7 IF ‘N PRU ‘BLOCK + 1 - . STARTED BLOCK 
: g 7 THEN N = .LBLOCK # 1 = .STARTED BLOCK; 
i: ; 

3 § Start a read for file A. 

3; 735 be BCB = of BUFFER(); 

AB, P 2285 STATUS = $Q]0( 

SS, Pp 86 eine: eu EG 

@ 7 8 P =.] os 

: 739 P 2288 EFN=BCB sare 

: 740 P 2289 1ose=BcBLBC 6cB Ar OSB) 

> 741 P 2290 i=, Bur Ferd, 

> 7% P 2291 P2=.N® 

. 9 P3=.STARTED_BLOCK); 

: 764 9 IF NOT .STATUS 

: 745 94 THEN 

> 7% 95 FILE_E 

3: 746 96 Baceors READERR + STSSK_SEVERE, 
: 748 9 INPUT _FAB, 

: 749 8 STATUS); 

: 750 99 BCBBCB_SUCC_ACT) = 0; 

> 751 00 BCBLBCB-FAIL-ACT 

: 75 01 BCB(BCB-STATE) = ace. § READ; 

: 75 0g INSQUE(7BCB, .RING_A[1]); 

: 754 0 

: 755 04 

3 ee 5 Start a read for file B. 

: 758 0 BCB = GET _BUFFER(); 

: 759 Pp 8 STATUS 8 t$a10( 

: 760 P 2309 FUNC= INP T UN 

: 761 P 2310 

3; 76 P 2311 EFNeacB. 5, REREAD 

: 7% Pp 1 10SB=BCB( ECB EAD, 

: 764 P 231 p=.B¢ CB_GUFFERS, 

: 765 P 2314 P2= 

; 766 15 Pp =: STARTED BLOCK); 

: 76 16 IF NOT .STATUS 

: 768 1 THEN 

: 769 18 NPILELE RROR ( 

3 770 1 GACKUPS_READERR + STSSK_SEVERE, 
: 771 0 OUTPUT FAB, 

: 77 1 * STATUS); 

: 77 j BCBLBCB_SUCC At} = 

+ 77% BCBLBCB-FAIL-ACT 

: 775 4 BCBLBCB-STATE) = BB REREAD; 

: 77 5 INSQUE(78CB, .RING_BT13); 

: aa : 

: 779 8 ! Note that these blocks have been started. 


co 


$8 
8 


6 
a@ save set 1 “19 7:21:13 AX=11 Bliss-32 V4.0-7462 Page 28 
_BLOCKS = compare file blocks mH Ti Bee i88 YBACKUP. SRE RESTORE .632;1 (3 
' 


' Wait on the read for file B. If there is an error, redo the read one 
: block at a time reporting the errors. 


REMQUE(.RING_BC0J, BCB_B); 
WAIT(¢.8CB_B); 


3 i 1 STARTED _BLOCK = .STARTED_BLOCK + .N; 

7 ¢ END; 

if 

3 g 5 : Loop to wait on the first read of each ring, compare it, and reissue. 
7 UNTIL .FINISHED_BLOCK GTRU .LBLOCK DO 

3 f 5 BEGIN 

; 790 N ! Number of blocks read this pass 
: 791 STATUS, i Status variable 

; re BCB_A: REF BBLOCK, ' BCB for buffer in ring A 

; et, BCB_B: REF BBLOCK; ! BCB for buffer in ring B 

: 795 

3 re Compute the number of blocks in this transfer. 

; 798 N = .BLOCKS; 

; 799 IF .N GTRU .LBLOCK + 1 = .FINISHED_ BLOCK 

: O0 THEN N = .LBLOCK + 1 = .FINISHED_BLOCK; 

; 80 

3 508 ! Wait on the read for file A. If there is an error, redo the read one 
s 805 : block at a time reporting the errors. 

; 5] REMQUE(.RING_ACO), BCB_A); 

; 80 WAIT(.BCB_A); 

3 08 If NOT -BCB_ACBCB_10_STATUSJ 

3 09 THEN 

; 810 BEGIN 

3 Bt; INCR I FROM 0 TO .N-1 DO 

3 ig BEGIN 

3 3 P STATUS = $0Q]0W( 

3; 814 P FUNC=. INPUT_FUNC, 

s 815 P CHAN=.INPUT_CHAN 

: 16 P 10SB=8CB_ACBCB_10SB) 

: 81 P P1=,BCB_ACBCB_GUFFERS + .1*512, 

> 818 P P2=512, 

: 819 P3=.FINISHED BLOCK + .1); 

; 820 IF .STATUS THEN STATUS = .BCB ACBCB_10_ STATUS): 

3 1 ae ~STATUS THEN IF NOT FIND_BADBLOCK(. INPUT_BAD, FINISHED BLOCK + .1) 
3 § FILE_ERROR( 

: 4 BACKUPS_READBLOCK, 

3 . INPUT_FAB 

: -FINISRED_BLOCK + .1, 

: STATUS); 

3 END; 


009 0000 6 Gd Gd Cd Cd Cd 09 0D 02 CD GD 


+--+ YH 


—- 


¥O2-000 COMPARE BLOCKS = Compare file blocks Rater BO gece EBACKUPUSRETRESTORE BSoe? Page 2) 
¢ IF NOT .8CB_BL8CB_10_STATUS] 


eS 


8 BEGIN 
9 INCR I FROM 0 TO .N-1 DO 
BEGIN 

Ag P 2391 STATUS = c$a10y 

4 P 239 FUNCS, | 

i P 239 aa ae 

5 P 2394 10$8=8¢8 B(BtB 10$8) 

6 P 2395 ac8. 6(8cB 8 BUFFE Ba + 1512, 

P 239 Pes = 
8 9 P3=. FINISHED BLOCK + .1); 
9 IF .STATUS THEN STATUS = .8CB BCBCB_10 STATUS); 

50 599 wen STATUS THEN IF NOT FIRND_BADBLOCK(.OUTPUT_BAD, .FINISHED_BLOCK + .1) 

3 401 FILE_ERRO 

2? <8 BACKUPS -PEADOLOCK.. 

36 405 a *STATUS); 
858 409 END; 

408 


If we are done, free the buffers. 
if .STARTED_BLOCK GTRU .LBLOCK : 
THEN 


59 
bce ms : Compare the data. 
bse 1 inCR I in 0 TO .N-1 DO 
864 ig IF CHSN 
5 14 ea! a ‘ace. ACBCB_BUFFERI+. 19512 
15 12, .BCB-BLBCB-BUFFERI+.1*512) 
is " ene NOT FIND_BADBLOCK(.INPUT_BAD, .FINISHED_BLOCK + .1) 
70 19 FILE_E 
871 9 BACKUPS. VERIFYERR, 
ers ; -FINISHED BLOCK + .1); 
7% END; 
875 4 
16 5 
AA $ : Note that these blocks have been finished. 
79 8 FINISHED_BLOCK = .FINISHED_BLOCK + .N; 
0 
5 
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! Compute number of blocks to transfer in next pass. 
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Main i ifeseon 98s 00:24:13 


S$; 
-LBLOC 


! 

N= .B 
I K + 
= ,LBLOCK 


-BLOCK 
F .N GTRU 1 = . STARTED BLOCK 
THEN N + 1 = ,STARTED_BLOCK; 


Start the next read for file A. 


STATUS = $010( 
FUNC=. INPUT_FUNC, 
CHAN=. INPUT~CHAN, 
EFN=BCB_$_READ, 
10S8=8CB8_ACBCB’ 10SB) 
P1=.8(B ACBCB_BUFFERS, 


=.Ne 
P3=,STARTED_BLOCK); 
IF NOT .STATUS 


THEN 
FILE _ERROR( 
wACKUrS READERR + STSSK_SEVERE, 


BCB-ALBCB-FAIL-ACT) = 0: 
BCB-ALBCB-STATE) = BCB_§_READ; 


STATUS); 
BC Afste SUCC_ACT) = 0; 
INSQUE(.8CB_A, .RING_AL13); 


: Start the next read for file B. 


STATUS = C$QI10( 
FUNC=. INPUT_FUNC, 
CHAN=.OUTPUT_CHAN, 
EFN=B(B_S_REREAD 
10SB=8C8 B(BCB_10s8) 
i= .B¢ g BCB_BuFFERS, 
= 


Ne 
P =. STARTED_BLOCK); 


IF NOT .STAT 
THEN 
FILE_ERROR( 
BACKUPS_READERR + STSSK_SEVERE, 
.OUTPUT”FAB, 
* STATUS); 
BCB_B pce succ att) = 0: 
BCB-B(BCB-FAIL-ACT) = 0; 
BCB"B BcB STATE) = BCB_§ REREAD; 
INSGUE(.8TB_B, .RING_B[1]); 


: Note that these blocks have been started. 
STARTED_BLOCK = .STARTED_BLOCK + .N; 


6 
STOR Restore a save set Ibese =1984 00:21:13 AX-11 Bliss-32 V4.0-742 1 
WOL-505 COMPARE BLOCKS = compare file blocks ~3007 138% ey YBACKUP Se RESTORE .832;1 vee a 


OFFC 00000 COMPARE _BLOCKS: 
WOR 


- Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 : 2216 
E 10 ¢ 0002 SUBL2 #16, SP : 
04 AC BO 00 MOVL  FBLOCK, FINISHED BLOCK > 2255. 
a”; 55 D 0 09 MOVL FINISHED BLOCK, STARTED_BLOCK : 
0 00000000° éF p 0 MOVL FRE LIST, R + 2256 
a AO 3¢ 001 MOVZWL 8(ROT, BLOCKS : | 
B 000002 8F C6 0001 DIVL2 #512, BLOCKS : 
50 08 Ar Or MOV RING.A, RO t 2262) 
Oc AE 50 D0 00 MOVL RO, RING_A+4 : 
08 A 50 B 0026 MOVL RO. RING-A : 
5 ; O02A MOVAB RING.B, RO + 2263 
04 AE DO 0002D MOVL RO, RING_B+4 : 
$5 oooo0000" er bn Spode MOVIBL COM.BUIP “COUNT, R7 + 2264 
34 ; C6 00038 IVES tet Vi ° : 
b6 00 INC : ; 
0102 31 0004 BRW $ : 
08 ac SA D1 00043 18: CMPL STARTED_BLOCK, LBLOCK > 2272 
03 18 0004 BLEGU 2$ : 
0101 31 00049 W 10$ : 
52 58 09 0004C 2$: MOVL. BLOCKS, N : 2277 
50 08 AC SA C3 OO04F SUBL3 STARTED_BLOCK, LBLOCK, RO + 2278 
50 D6 00054 INCL 0 ; 
50 52 D1 00056 CMPL ON, RO : 
g 1B 005 BLEQU 3$ 3 
52 0 00 00 B MOVL RO, N : 2279 
000000006 00 00 FB 0 3 3$ CALLS #0. GET_BUFFER > 2284 
3 0 p 0006 MOVL RO. BCB F 
7E 7C 90068 CLRO 0. = ( §P) + 2292 
7E D4 0006A CLRL = = (SP F 
5A Dp b906C PUSHL  STARTED_BLOCK : 
7E 52 09 006 ASHL 4&9 =(SP) F 
oc A3 bp 0 PUSHL 12(BCB) ; 
ze C 0007 CLRQ.=(SP : 
18 A’ 9F 00077 PUSHAB 24(BCB) : 
7E 90000000 ° EF 9A OOO7A MOVZBL INPUT_FUNC, -(SP) F 
00000000" EF DD 00081 PUSHL INPUT~CHAN : 
1 DD 00 7 PUSHL @# ; 
000000006 90 ¢ F 9 CALLS #12, SYS$QI0 ; | 
6 D0 00 MOVL RO, STATUS ; 
15 6€ 9 BLBS STATUS, 4$ : 2293 | 
6 DD 36 PUSHL STATUS 3 229 
90000000" Hi DD 0009 PUSHL INPUT FAB > 229 
00000006 8F ODD Hi PUSHL ACKOPS_READERR+4 > 2296 
000000006 00 03 FB OOOA CALLS @# LE-ERR ; 
20 A 43 AB 4$: CLRO © 32¢BCB) : 2299 
A3 04 9 AE ove # (BCB) > 2301 
C BE O€ 0008 INSQUE (BCB), @RING_A+4 ; Qe 
000000006 0 f B6 CALLS #0, GET BUFFER ; 230 
p B OVL RO. BCB ; 


Kk 6 
STOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 
VO2-000 COMPARE BLOCKS = compare tile blocks ety 1 eee} BACKUP. SRC IRESTORE B32; 1 
0 18 Ad 9 C4 MOVAB 24(R3), RO 
00000008" F 06 C8 MOVL OUTPUT CHAN, R1 
OOOIFFFF i Ct CMPL Ri, WIsiOry 
: Te 9900, Bish 58: 
7E D4 A R -(SP) 
0410 iF BB Stet PRKRG R10> 
OC A3 DD O00E PUSHL  12(8CBS 
ze C 000E CLRQ. = (SP) 
50 DD O00E PUSHL R 
7E 00000000' EF 9A O00E VZBL INPUT_FUNC, -(SP) 
1 OD OE PUSHL 1 
4 DD OOOF PUSHL #4 
000000006 00 ; f oF CALLS #2, STA_Q10 
— 7C OOF 5$: CLRQ = = ( SP) 
0410 F BB OOO BUSHR #SHCRG-RIO> 
OC A3 DD Nt PUSHL 12(BCB) 
43 ¢ 0106 CLRQ.  =(SP) 
50 DD 010 PUSHL RO 
7E 00000000° EF 9A 0010A MOVZBL INPUT_FUNC, -(SP) 
1 egg, a 
eseeeel e 
36 £8 OOtTF : BLBS STATUS, 7$ 
00000000' ’ DD 61 ¢ PUSHE auTPur FAB 
000000006 fr DD 091 A PUSHL #BACKUPS_READERR+4 
000000006 00 03 FB 00130 CALLS #3, FILETERROR 
0A A eo ht ie ont ae tecace> 
04 BE $3 0 ne INSQUE (BEB), @RING B+4 
A 3 cb O49 ADDL2 N, STARTED _@COCK 
02 57 5 00145 8$: SOBGTR $ 
re WANG og, BE fs 
08 AC £8 D1 00140 10$:  CMPL =‘ FINISHED_BLOCK, LBLOCK 
01 is 131 BLEGU 11$ 
57 58 09 18 118 MOVL. BLOCKS, N 
50 08 AC 55 ¢3 00157 SUBL3 FINISHED BLOCK, LBLOCK, RO 
9 i) 15¢ INCL R 
50 D1 001 F CMPL NN, _ RO 
job Sieh Res 
4 08 gE OF 166 128 REMOUE @RING_A, BCB_A 
000000006 01 F 1g CALLS #1, WAIT 
8B ER OIE GLAS 2atottAy, 168 
$7 ii 17A BRB 15$ 
—E 7C 7c 13$ CLRQ = = (SP) 
7 4 001 CLRL = = (SP) 
624 oF 18 PUSHAB C1)CFINISHED_BLOCK 
7E 0200 8F 3C¢ 001 MOVZWL #512, -(SP) 


—_ 


Wnnw 


MPPOMENY) ss POPOPOTO 
Wronn — 
OoOuMsN OOo 


NWA 


¥ ¢ 


mr 
re 
on 


Pe Se Se Se Se Se Se Ge Ge Ge Ge Se Ge Fe Se Fe See Se Fe Fe Ge Ge Ge Ge Fo Se Ge Ge Ge Se Se Go Se Be Fe Fe Se Ge Se Be Be Se Be Be Se Se Se Se Se Ge Se Se Be Se Be Se 


CS ee er es a pron a 


RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 
WO. 008 COMPARE _BLOCKS = compare file blocks = 8ep-19 4 aber YBACKUP SRE RESTORE Boost 
50 52 09 78 00188 #9, 1, RO 
0c a! 3 PUSHAB a1 (8E8_A)(ROJ 
18 AS 9F 001 USHAB 24(BCB_A) 
7E 09000000" F 3h 13 MOVZBL INPUT_FUNC, (SP) 
00000000" EF DD 0019 INPUT~ CHAN 
E D4 OO1A CLAL = (sp) 
000000006 90 FB OOIA CALLS #12, SYS$Q10W 
9 DO 001AB MOVL RO STATUS 
07 5 1AE LBC status, 4$ 
9 18 «OA f 181 MOVZWL 24(BCB_A), STATUS 
28 5 f 185 BLBS STATUS; 15 
6245 9F 001BB 148:  PUSHAB (1)CFINISHED_BLOCK) 
00000000" EF DD 0018B PUSHL INPUT BAD 
000000006 99 FB 1C1 CALLS 2, F IND _BADBLOCK 
1 £8 001¢8 LBS) s«éRO, 15$ 
bb 1¢B PUSHL STATUS 
6245 9F OO01CD PUSHAB (1) CFINISHED_BLOCK) 
00000000' EF DD 00100 PUSHL INPUT FAB 
000000006 8F DD 00106 PUSHL  #BACKOP$_READBLOCK 
000000006 00 04 FB 01D CALLS #4, FILE ERROR 
5 52 7 £2 OO1E3 15$: LSS N, I, 138 
54 00 BE OF OO1E7 16$:  REMQUE @RING_B, BCB_B 
54 DD OiEB PUSHL  ®8CB_B 
000000006 00 01 FB 1ED CALLS #1, WAIT 
0 18 Ad ; OO1F BLBC 24 (BCB B), 17$ 
00AB 31 OO1F8 BRW 4 
52 01 ce O1FB 17$ MNEGL #1, I 
009¢ 31 OO1FE BRW 22 
53 55 5 ci 0201 18$: ADDL3 I, FINISHED_BLOCK, R3 
50 3¢ 09 78 0 05 ASHL 
51 00000000' Ef DO 0 09 MOVL OUTPUT_CHAN, R1 
OOO1FFFF BF 1 01 00 19 CMPL Ri, #131071 
8 1F 0021 BLssu 19 
— 7C 00219 CLRQ  -=(SP) 
7E D4 0021B CLRL = = (SP) 
3 D 0021D PUSHL 
7E 0200 BF 3c O021F MOVZWL #512, -(SP) 
OC B440 9F 00224 PUSHAB @12(8CB_B)CROJ 
7E 7C 00228 CLRQ = = (SP) 
18 A& 9F 0022A PUSHAB 24(BCB_B) 
7E 00000000" EF 9A 0022D MOVZBL INPUT_FUNC, -(SP) 
1 DD PUSHL 1 
E D4 CLRL isp) 
000000006 00 ¢ it CALLS #12, STA_QIOW 
6 1 F BRB 20$ 
E 7C 00241 19$:  CLRQ -(SP) 
43 D4 0024 CLRL = = (SP) 
7E 0200 i 3¢ " MOV UL : 12, =(SP) 
C B4 6 F 0024 PUSHAB @12(BCB_B) CRO) 
7E 7C CLRQ = (SP) 
18 «OA oF PUSHAB 24(BCB_B) 
7E 00000000' EF MOVZBL INPUT_FUNC, -(SP) 
1 0D c PUSHL 1 
E 04 3 CLRL 5 (sp) 
000000006 9F OC FB CALLS #12, a#SYS$Q10W 


00000000" EF 


000000006 99 3 
1 
0708 F 
00000000" EF 
000000006 BF 
000000006 99 4 
2 ? 
3 
FF5B 
56 1 
9 
50 56 9 
OC B440 OC 8840 0200 4 
6645 
00000000" EF 
000000006, 90 6 
664 
00000000" EF 
000000006 8F 
000000006 00 3 
3 2 57 
5 57 
08 AC 5A 
15 
58 
000000006 00 9 
000000006 00 01 
FE47 
57 5B 
50 08 AC of 
50 39 
57 i 
: 
7eE 
5A 
7€ 57 09 
oc AB 
i 
1 A 
7E 00000000° EF 
00000000" . 
000000006 98 6 
15 
9 


= Res oe 19-Sep-1984 90:71 h3 eeu Bliss-32 V4.0-742 


Sep-1 BACKUP. SRC JRESTORE.B32;1 

D9 7 208: MOVL RO, STATUS 

t A status, 1$ 

¢ D MOV2WL 24(BCB.B), STATUS 

E 1 STATUS, 22$ 

DD 00274 21%:  PUSHL 

DD f USHL OUTPUT_BAD 

FB CALLS #2, fastener 
BB PUSHR #*M<R3,R9> 

DD A PUSHL OUTPUT FAB 

DD 00290 PUSHL  #BACKUP$_READBLOCK 
F 96 CALLS , FILE-ERROR 

F % 228: AOBLSS ‘ 

}} 0 A 338: RW 8$ 

ce 0 AS 26$:  MNEGL #1, I 

1 A9 RB § 

78 0O2AB 25$:  ASHL #9, I, Rg 

29 OO2AF CMPCS) #512, @12(BCB_A)CROJ, @12(8CB_B)CROJ 
13 00289 EQL 26$ 
9F 00288 PUSHAB (1)CFINISHED_BLOCK] 
DD 002BE PUSHL INPUT BAD 

FB 024 CALLS #2, FIND_BADBLOCK 

E8 002CB BLBS RO, 26$ 
9F OO2CE PUSHAB (ISCFINISHED_BLOCK) 
DD 00201 PUSHL OUTPUT F 
DD 32 D7 PUSHL BOACKUPS VERIFYERR 
FB 002DD CALLS #3, FILE ERROR 

F 00 £4 26$:  AOBLSS N, I 

C Oce8 ADDL2 N, FINISHED BLOCK 
D1 O02EB CMPL § STARTED_BLOCK, LBLOCK 
1B OOcEF BLEGU 27$ 
DD 002F1 PUSHL CB_A 

Fg 09 F3 CALLS #1, FREE_BUFFER 
DD OO2FA PUSHL  ®8CB_B 

FB dere CALLS #1, FREE_BUFFER 

31 00 0 BRW 10$ 
d9 0306 27$:  MOVL BLOCKS, N 

C 0309 SUBL3 STARTED_BLOCK, LBLOCK, RO 
D6 00 INCL = RO 
D1 0031 CMPL =sCN,._ RO 

18 031 BLEQU 28S 

p 1 MOVL RO, N 

C 00318 288: cLRd -(§P) 

D4 OO31A CLRL = = (SP) 
Dp 031¢ PUSHL  STARTED_BLOCK 

0 1 SHL. #9, N, =(SP) 

bp PUSHL  12(B8CB_A) 

C CLRQ. = (SP) 
OF US 24(BCB_A) 
9A A MOVZBL INPUT_FUNC, -(SP) 
DD 1 PUSHL INPUTCHAN 

DD 7 PUSHL #t 

F CALLS #12, SYS$Q10 

D 4 MOVL RO STATUS 

. 4 BLBS = STATUS, 

DD 00346 PUSHL STATUS 


e set 


000000006 00 


ey 
no @F 
51 

50 

QOOIFFFF 8F 

7E 


000000006 00 


000000006 


000000006 00 
OA AG 
04 


3; Routine Size: 1007 bytes, Routine Base: 


tore a Sav ; 
OMPARE_BLOCKS = compare file blocks 


boooo00e6 Bt 
20 «AB 


~n 
LJ 


VINA OS PF OOM MNVIMOOVIM UNIAN YS COON NVOOVUINMUN PS OO 
RYH HLLWATNOQOVOOM LOR SM LH MWMM 3H LO meme 


CODE + 0284 


FOOD OOMOMOUVIMTS Ofgwmng em 


Be 


>Prrrro 


MOOLOVCT OOF OVINVID OVNOMOOVWe" 


OOCOCCCOCOCOCOCOOSCOCOOCOCOSOSOSOCOOCOOOOOSOOOOOOOOOOOooOO 


Sescsse 
CSOOCOOCOSOCOSOCOSOSSOSSOCOSCOSOOSOSOCOCOSSSCSOSCOOOOOOSCOoSooO 


OMDB 9 GOW 9 FV 29FG £O-BVI 9 FOOD LO NOMOmMmonrwcre 
MMMMMOOIOEOEMOO 


COWOMOOVNVIIOIMS 799 OO NODS Ve" T9090 OS NOW NCC ONOOVNSOS 


BACKUP. SRC 


FAB 
P$_READERR+4 
ERROR 


#12, STA_Q10 
=(SP) 

-(SP) 

#*M<R2,R10> 
12(BCB_B) 

-(SP) 

R1 

INPUT_FUNC, (SP) 
RO 


ry 
#12, a#SYS$QI0 
RO, STATUS 

STATUS, 32$ 

STATUS 

OUTPUT_FAB 
SGACKUPS READERRGG 
it FILE_ERR 

32(BC 


(B 
N, STARTED_BLOCK 
16$ 


AX-11 Oi ieee 2e, : 


Re Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ve Ge Fe Ge Be Be Ge Se Se Be Be Ge Be Ge Be Ge Se Ge Be Ge Ge Ge Ge Be Ge Ge Ge Ge Se Ge Be Be 


MPNMoTMENIN) NoNoNnorn 
PALL LLL 
Wo oo 


Restore 
GET_ACP_ 
: 951 4 1 
; 9 ¢ 1 
3; 9 1 
; 9546 ¢ 1 
: 38 : 
$8 5 | 
3 328 8 1 
; 960 ; 1 
: $e) 10 4 
; 308 219 1 
3 964 216 1 
; 965 51 1 
; 966 514 1 
; 967 515 1 
: 968 218 1 
; 969 51 1 
; 970 218 1 
3; 971 519 1 
3 are 520 1 
; 97 521 1 
: 974 5 ; 1 
3; 975 5 1 
3; (97 524 1 
3; 97 525 1 
; 978 5 § 1 
; 979 5 
; 980 528 
; 981 529 
; 98 530 
; 98 531 
3; «984 5 § 
; 985 5 
3 28 Mm 2534 
; 98 Mm 2535 
: 988 m 25 
; 989 Mm 253 
; 990 238 
; 991 539 
; 99 540 
; 99 541 
: 994 266 
i 396 at4 
i 399 at8 
; 998 368 
3; 999 54 
: 1000 368 
: +f 54 
3 1 ‘ P 2550 
: 100 P 2551 
3 1 236 
: 1005 22 
3 3 P 2554 
3 1 P 2555 


Bur = generate ACP attribute Lis ifese 300-1382 9: £8: 3 BACKUP SREIR Ha 
L 


et 
ES 
"GET_ACP_ATTRIBUTES = generate ACP attribute List’ 
GETLACPLATTRIBUTES(ATR_LIST): NOVALUE= 


Deve — 


> 
- 


seach * 7 DESCRIPTION: 
This routine generates the ACP attribute List. 


INPUT PARAMETERS: 
ATR_LIST - Pointer to receiving buffer. 
IMPLICIT INPUTS: 


OUTPUT_ATTBUF = Attributes for output file. 
OUTPUT PARAMETERS: 

NONE 
ernest 1 gerne 
ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
SASSUME (MAX_ATTRS, GEQU, 13) ! Number of attributes generated by this routine 


LITERAL 
meee ATRSS_ASCDATES = 2; ! Only write 2 bytes of ASCDATES for revision count 


GEN_ATTR_LISTCA,BJ= 
VATR™= NAME C*ATRSS_ ", A) + SNAMECTATRSC_", A)*16; 
ATR = “ATR + 4; 
VATR = 
ATR = Bie + 4%; 
ATR; ! Pointer to attribute List 


LOCAL 


: Build the attribute descriptor list. 


Ate = .ATR List 
ir NOT” QUAL COUAL NTE 
pj hUALCOUAL. IMAG 


GIN 
GEN ATTR_LIST( 
“FPRO; OUTPUT_ATTBUFCFAR -{7n0} 
RPRO, OUTPUT“ATTBUFCFAR-RPROJS 


GEN_ Art LIST( 
CLEVEL, OUTPUT_ATTBUF CFAR_ACLEVEL), 


(a 


V4.0-74 
ReoBSe01 


Page | 


<z 


) 


7 
ore a sa et 16-Sep-19 2:21:13 AX-11 Bliss-32 v4.0-7462 e 7 
ACP ATTRIBU ES = generate ACP attribute Lis b-seo-1984 ey EBACKUP.SRe RESTORE .832;1 = Pi 


| 


ae 
33 


UCHAR OUTPUT _ATTBUF CF AR_UCHAR] 

JOURNAL, § QUTPUTTATTBUF [FART JNL FLAgs2, 

RECATTR, OUTPUT_ATTBUFLFAR-RECATIRI); 
IF, (OUTPUT _ATTBUF LFAR_CREDAT 1) REG 0 


SOCOUIVMm —H 


MFWn—O0Oanc It 


BEGIN 
GEN_ATTR_LIST( 
CREDATE, OUTPUT_ATTBUFCFAR_CREDATE)); 
IF «, (OUTPUT _ATTBUFLFAR_REVDATEI) NEQ 0 
BEGIN 
GEN_ATTR_LIST( 
REVDATE OUTPUT _ATTBUF CF AR_REVD 
ASCDATES, OUTPUT~ATTBUF LF AR-REVI 


ND; 
IF «,(OUTPUT_ATTBUF CFAR_EXPDATE) NEQ 0 


ATE) 
SIONS); 


_ 
at ot 
VFN "OOOO lwo 
wv vv 
oe 


Janeen ee 


BEGIN 
GEN_ATTR_LIST( 
EXPDATE, 


pepe w lola lol aloo lo lololololololololololalololo) 
SSoNS 
vo vv 
PAAATMMVIUIUT 
Vo F ONT SSS2F 


a a ee ed ed ed nd ed 


: - OUTPUT _ATTBUFCFAR_EXPDATE)); 
5 IF .QUALCQUAL_RECO) OR .QUALCQUAL_INCR 
1 5 THEN 
g 580 BEGIN 
P 2581 GEN_ATTR_LIST( 
4 38¢ . BAKDATE, COM_O_BSRDATE); 
36 284 ELSE 
9 7 385 IF, ,QUALCQUAL_IMAG] AND .(OQUTPUT_ATTBUFCFAR_BAKDATE]) NEQ 0 
039 38 BEGIN 
040 Pp 388 GEN_ATTR_LIST( 
041 89 BAKDATE, | OUTPUT_ATTBUFLFAR_BAKDATE)); 
O6e 590 ND; 
04 P 2591 2 GEN_ATIR_LIST( 
044 398 VIC OUTPUT_ATTBUFCFAR_UIC)); 
045 59 .ATR = 0; 
046 594 1 END; 
0004 00000 GET_ACP_ATTRIBUTES: 
-WORD Save R : 2500 
52 00000000' EF 3 00 MOVAB QUAL+8, R2 3 
5 04 AC D0 000 MOVL ATR_LIST, ATR > 2545 
05 06 A 1 €1 000 BBC a. QUAL+14, 1$ + 2546 
18 A 3 €1 1 BBC # AL+10, 2$ ; 3347 
00160002 &F 0 1? 1$ MOVL #1441794, (AT : 2552 
if Ce 3 MOVAB TPUT_ATTBUF+110, (ATR)+ : 
001700 f 0 MOVL #1507330, (AT ; 
6 1F ce f MOVAB TPUT_AfTBUF+112, (ATR) : 
0018000 f p F 2$ MOVL #1572865, (ATR) : 2558 
1FA C2 3 MOVAB OUTPUT AfTBUF+122, (ATR)+ : 
00030004 F pO 000 MOVL #196612, (ATR)+ 3 


-—— easiest essence reenainetiaagetamaenietdaatne saint 


| 
“5 “11 BLi 4.0-7% 
Wbe-000 GET ACE_ATERIGUIES = generate ACP attribute Lis 1G-Se0~1964 BOS am CHittion tia hit cee ree Pope 


164 9 MOVAB ATTBUF +100, (ATR)* : 
| 00100002 §? MOVL #190056 : 
2 MOVAB oy! f At TBUr 40, (ATR) : 
0004 £ MOVL #2621 bs : 
1 C MOVAB T ATteur +} » (ATRI* : 
18 i : Ist OUTPUT “ATTBUF +4 : 2559 
0011000 F MOVL #1114120, (ATRD+ : 2563 
180 ¢ MOVAB OUTPUT_ATTBUF+48, (ATR)+ : 
18 f p Ist : TPUT-ATTBUF +56 : 2565 
00120008 8F MOVL #117965 4 : 2570 
1 ce f MOVAB our rule RfTBUF #36, (ATR) + : 
0 000000 F p MOVL 51 : 
0 1F Cg MOVAB OUTPUT Orta ett6, (ATR) + : 
1 i : Ist QuTPUT. ATTBUF +64 : 2572 
80 00130008 F p MOVL #1245192, (ATR)+ + 2576 
8 01¢ 2 : MOVAB  OUTPUT_ATT UF $64, (ATR)+ : 
8 83 A 2 Fi Bee ot” paige + ; : ere 
80 00140008 8F 50 MOVL #181072 0 + 2582 
60 0090 ce 9 MOVAB i 0 “SSADATES taTR) : 
1 A 1 BBC L+10, 9$ + 2585 
, ai es 01¢8 C2 b} tsi OufPut ATTBUF 72 : 
80 00140008 $F pd MOVL #310728 (ATR) + : 2589 
60 01c8 C2 3 ROVAB T_ATTBUF+72, (ATR) : 
04 C ADDL mt : 
80 00150004 &F pO MOVL Hartly : 2592. 
80 01E0 C3 E MOVAB QuTPUT A 18UF 96. (ATR) + : | 
3 ps CLRL CA : 2593 
4 RET 3: 2594 


; Routine Size: 226 bytes, Routine Base: CODE + 0673 


ee 
—_——— ee 


—a—= I 


-————_——_- 


’ 
ST Restore a save set ibs -1984 00:21:13 AX-11 Bliss-32 v4.0-74 p 9 
WO2 008 GET_PARENT UIC = get parent UIC of file meds aS EES a rt hg ey eh et ae oe oe 
1 USBTTL "GET PARENT UIC = get t t file’ 
ROUTINE GET“PARENT-Ul¢e °° Parent VIC of file 


+ 
+ 


nnn 


FUNCTIONAL DESCRIPTION: 
This routine gets the parent UIC. 


INPUT PARAMETERS: 
NONE 


ARAVLOSSw IRA 


jojejelolq) 


OWONAUSW—OO0 


PAA AO 


3 


ere en 


oo 
oo 


383 


OUTPUT PARAMETERS: 
NONE 


10 
064 11 
5 \§ IMPLICIT OUTPUTS: 
1 NONE 
we is ROUTINE VALUE 
+) 1 The parent's UIC. 
0% 7 SIDE raced 
ors 3 NONE 
07 0 
074 1 os 
075 ; 
076 
O78 é ; 
079 § ARNEL, ' Channe 
080 STATUS, ' Status variable 
081 SB: VECTORC4,WORD], ! 


4 ' 1/0 status block 

1B: BBLOCK FiBS¢_LENGTH). | FIB 
FIB_DESC: vECcTor(2), ' Descriptor for FIB 
' Return location for VIC 


ATR_DESC: BBLOCKL12); i ACP attribute List 


: Assign a channel to the device. 
DEV_DESCLO) = -QUTPUT _NAMENANSB_DEV]; 
DEV"DES<L1) = .OUTPUT-NAM NAMSL DEV): 
STATUS = ASSIGN_OUTPUT_CHANNEL (DE 


PAEDPXRPEXAPDP AAA A AAA A AAA AA AA AAAAAAAAAA OH 


SOG ARN 


V_DESC, CHANNEL, 0, 0); 


SESFSISSEISELSSEES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LOCAL 
bey pests VECTOR(2), Device name descriptor 


ee me me ee a a a td nd ot ot ed 


640 IF “OT .STATUS 
641 THEN 
é BEGIN 
64 FILE _ERROR( 
644 BACKUPS_READATTR, 
445 OUTPUT FAB, 
ose » STATUS); 
100 64 RETURN .JPI_UIC; 
101 os END; 
1 ; 64 
103 650 
106 651 ! Initialize the FIB. 


$T Restore a save se -Sep-19 1:13 AX-11 Bliss-32 V4.0-74 P 4 
yo2-008 GET_PARENT “ult ad get parent UIC of file Ig-seon 3b 90: 3 26 BACKUP. SRCIRESTORE. Boe — (BS 


- 
3 
eC 


18$C_ ‘om FIB); 

"iM = .OUTPUT NAMSW_DI 
= OUTPUT “NAR NAMSW pie 
= 


“OUTPUT -NAMCNAMSW~D 
$C_LENGTH; 


PEAS 
NO 
Ss Ds Des De Be | oe | 


Initialize the ACP attribute List. 


Tee: A 


SERES 


: 


ATRSC_ “UIC: 
ATR-DESCL4 Ic; 
ATR_DESC 8, 


2 


LSS 


NOUS WI OOM 


: Execute the read ettributes. 


STATUS = $Q10W( 
FUNC=108 ACCESS, 


wvwuvUU 
SSN 


nr PAA 
— 
awn 
. 
wn 
_" 
QP 
— 
Cc 
ee 
. 
crm 
wmn 
za 

es 

wee 
“— 
B&B 
“ 
Cc 
“ 
" 
- 
oO 
n 
@ 
to} 
Oo 


wn 


0 | 
BEGIN 
68¢ FILE_E 

BACKUPS. READATTR, 
PUT" FAB, 
685 STATUS); 

6 VIC = .JPI_UiCc; 
68 END; | 


uw 


690 Deassign the channel. 
69 SDASSGN(CHAN=. CHANNEL) ; 


Return the UIC. 


Be Se Se Se Ge Ge Se Ge Ge Se Se Ge Ge Ge Gs Se Se Se Ge Gs Ge Ss Gs Se Se Se Ge Ge Os Ge Se Se Se Ge Se Se See Ss Oe Se Se Se Se Ge tee 
a a ee a a ee a a a ae ee a ee ee ed ee ed ed eed 


—OOBNOU Sw) O OW 


O3FC 00000 GET_PARENT_UIC: 


8 go0n0006 80 9 0000 fovas FILE ERROR, RSTn ND ; 2596 
EE Re Me : 


$T tore @ save $s 

VOe-000 fi PARENT sie = - get parent UIC of file 
. so 
64 AE 39 a8 

68 AE 44 «OA 

7E 

8H 

000000006 90 

78 é 
re ay 
8 wef 

0 Fo6c «= 
0040 8F 00 6E 00 
1C = =AE 

1c OA 

50 6 
0 AE ga AQ 
4 UCU f Ad 

4 UCOA 4 8F 

18 AE 1C «AE 

08 AE 00150004 &F 

OC AE 04 AE 

10 AE 

7E 

Oc AE 

7E 

7E 

28 «AE 

7E 

7c) COU A 

3 

28 «AE 

7E 

000000006 00 56 

56 

4 6 

6 5¢ af 

10 H 

FC a3 
« f 

04 AE FD6C ce 
000000006 98 1 
04 AE 
; Routine Size: 202 bytes, Routine Base: CODE + 0755 


fee 


1986 24:46: a 


N. 
$ 
$ 


#3, F 


fu 


snBenesero tenes | 


#0, (SP), #0, #64, FIB 


F 


CHANNEL 


U 

ie _FAB 
FILE _ERROR 

Jet VIC 
Nec’ 


SYSSDASSGN 
Ul te, RO 


AX-11 Bliss-32 po 
BACKUP. SRCJRESTOR 


0-74 Pp 1 
éasoe1 age 4) 
2637 


——_ 


a 


a 


V4.0-742 


—_ 
es 
™~N 
al 
@ 
= 
= 
et 
Nw 
mu 
‘cc 
or 
anv 
cx 
— 
. 
a 
= 
tet 
vw 
ie 
@ 
>w 


a 
a 
—s 
@ c 
-_ 
_— 
- ~ 
0 @ oS 
=< = ro) 
<= — c 
Vv Co 
. oO 
orca aa 
-to w 
= ] «oe 
mo wn — 
-—~N oes 
oo + ~uw < 
oO a «6 = | 
~~ -—e ~ | 
o- o j 30 } 
o=- uw 
om @Qaueso a se | 
a co a | 
4 uwauwn aa = } 
. ea eerere | 
on e meme ems verre | 
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ST Restore a save set ip-se -1984 00:21:13 AX-11 Bliss-32 V4.0-742 Pa 43 
VOe-000 CLOSE RESTORE = close restored file 300-1382 3 f6:86 BACKUP. SRC JRESTORE .632;1 if (9) 
3 121 7 FIB_DESCC1) = FIB; 
3; 121 P 4 $ STATUS = te 
3 121 o FUNC=10$_MODIFY 
3 121 P o7 CHAN=, OUTPUT_CHAN, 
3; 1214 P 27 508851038 
: 1819 P 276 Pi=F I bESC. 
31 § P 276 PS=UPLT 
3; 121 P 276 WORD(ATRSS_BAKDATE, ATRSC_BAKDATE), 
3 ; i P be: OM_O_BSRDATE, 
3 1220 766 IF .STATUS THEN STATUS = .10SB0); 
3: 1221 re IF NOT .STATUS 
3 1 § 7 3 THEN 
3 7 7 FILE_ERROR( 
3 1224 770 BACKUPS$_WRITEATTR, 
3: 1225 771 OUTPUT FAB, 
3 1 77 - STATUS); 

1 77 
31 77% 
3 1 5 775 OUTPUT _FLAGSCOUTPUT_INCR_DIR] = FALSE; 
31 77 SOASSGR CHANS . BUTPUT CHAR) ; 
3 : 1 ee purest cna = 0; 
3 1 § 77 ELSE IF .OUTPUT_FLAGSCOUTPUT_DIR_OPEN] 
3% 780 THEN 
3 1235 781 BEGIN 
3 1 7 ; SDASSGN(CHAN=.OUTPUT_CHAN) ; 
31 78 OUTPUT FLAGSCOUTPUT_BIR_OPEN] = FALSE ; 
3 7 784 OUTPUT_CHAN = 0; 
; 1 io ; 3 : 
3 1261 4 IF .OUTPUT_FLAGSCOUTPUT_OPEN) 
3 124 788 THEN 
3: 124 789 BEGIN 
3 1244 790 LOCAL 
3 1245 791 BCB: REF BBLOCK, ' Pointer to BCB 
3 1 ré] rs STATUS, ' Status variable 
; : rt 4 as 10SB: VECTOR(4,WORDJ; ! 1/0 status block 
3 1249 795 
3 : 39 as : Wait for all pending writes to complete. 
; : § as z UNTIL REROUE (OUTPUT WAITED). BCB) DO 
3 1254 800 4 WAIT(.8CB); 
3 1255 801 4 FREE_BUFFER(.8CB); 
3 7 $ one END; 
: 1588 $04 
+ 1259 508 ' Make gure we got all the data records we were eupect ing. Accept an error 
3; 1260 5] ! if this is the end of a tape verify pass, since the file may bagi t imately 
3: 1261 8 i be incomplete. Also, allow a number of blocks greater than what we were 
3; 1 $6 ! expecting, since a message hes already been issued in this case. Accept 
3 126 i an error if /VOLUME is specif ed. If the file was implicit y opened, we 
3 1266 10 ' do not know the end-of-file block, so the error must be accepted. If the 
3 : 32 1) nput save set is not sequential then we must accept an error also. 


8 
94 840 
5 841 ! Do the verification. 
39 Bc§ i 
9 84 IF .QUALCQUAL_PHYS] 
98 844 THEN 
+4 ne? BEGIN 
1 Bee ! Log verify pass. Only do this for /PHYSICAL; otherwise there 
308 944 1 would be a completely excessive number. Then do the verify. 
850 SIGNAL (BACKUPS STARTVERIFY) 
$02 851 COMPARE _BLOCKSTO, .INPUT_MAXBLOCK); 
: ; ELSE 
4 
5 


Z NOT .OUTPUT_FILECHARCFCHSV_NOBACKUP] OR .OUTPUT_BLOCK NEQ 1 
IF .QUALCQUAL_VOLUJ 
THEN 


FUSS IN 


oa w 
ESOS RAO O LAAT 


BEGIN 
LOCAL 
VBN: REF BBLOCK; 


VBN = . INPUT VBN_LISTCO); 
WHILE .VBN NEQ INPUT_VBN_LISTCO] DO 


N 
COMPARE BLOCKS. VNCVBN, FIRST, .VBNCVBN LAST); 
VBN = .UBNCPLC_FLINK); 


a ed a et od od od ed OOO 


WC COwOufwits—0 08 


a ee ee ee ee ee eee 


SDAA AD SII SS BB EE IIIT ES BS BBS BBB EEE EF PWN NII 


ND 
ELSE 


7 
T Restore a save set Igege -1984 00:21:13 AX-11 Bliss- 
VO2-000 CLOSE. RESTORE - close restored file 300-138 Of fo 08 YBACKUP-SREIR 
67 13 If 
1 NOT .QUALCQUAL_VOLU] AND 
$ 15 NOT .OUTPUT_FLAGSLOUTPUT_V_LAST] AND 
18 NOT .OUTPUT_FLAGSLOUTPUT_ IMPLICIT] AND 
71 1 NOT .OUTPUT_FLAGSLOUTPUT NONSEQ IN) AND 
te 18 OU BLOCK LEQU .OUTPOT_MAXBCOCK AND 
t 1 ne -OUTPUT_BLOCK NEQ 1 
75 ; FILE_ERROR( 
6 ¢ BACKUPS _VBNAISSING. 
28 4 SOUTPUT“BLOCK, .OUTPUT_MAXBLOCK); 
80 8 
3 : ? If verification is enabled on a Files-11 to Files-11 operation, do it. 
68 : , if ,QUALCQUAL_1F 11] AND .QUALCQUAL_OF11] AND .QUALCQUAL_VERIJ 
85 : 1 BEGIN 
e? 638 H Log the file creation. 
89 B35 if .QUALCQUAL_LOGI 
$34 B39 FILE_ERROR( 
4 He BACKUPS_CREATED, -OUTPUT_FAB); 


32 v4.0-74 p 4 
He ae age 3 


— ] 


~$ep-1984 Q0:21:13  YAXe1! BLige-32_v4.0-742 2 5 
ose restored file Ig-Sep-1986 BO fois — YexcKup Saeancsroné asoe1 age 53 


COMPARE _BLOCKS(1, .INPUT_MAXBLOCK) ; 


vOe-000 


om 


(C09 Cd C9 C909 02 CD CO CO COCO COCSCDCDODCDCDOOCDODCD 6 @ 


} Write the attributes of the new file. 
iF NOT »QUALCQUAL_PHYS] AND NOT .QUALCQUAL_COMP] AND NOT .QUALCQUAL_IMAG] 


MEUM OO OONOUSE 


oreie 
OL Dd. PECAN ATTR: BBLOCKCFATSC_LENGTH), ; Existing attributes 
FAT_ATR_LIST: BBLOCK ! ACP attribute List 

ATR “(ists VECTOR 


MAKATTRS*2 + 1]; ! New attribute list 


Build the attribute descriptor List. 
GET_ACP_ATTRIBUTES(ATR_LIST); 


bb A+ pet oe 4 te tee SANS w 
—OODOnou WH OSONSUR UNIO ae 


Pe ee ee et ee 


! Read the record attributes. This is required because HIBLK may be | 
i incorrect in the save set record attributes due to cluster factor 
difference in the old and new media. 


| 
FAT_ATR_LIST 2:8:18°9 = ATRSS_RECATTR; 
| 


MAMAN 
DNF WI SONNEI OOe 


Be Se Se Se Ge Se Be Se Ge Ge Se Ge Fe Ge Fe Se Ge Se Ge Ge Se Se Ge Se Ge Gs Se Se Ge Ge Ge Ge Se Ge Ge Se Fe Fe Se Se Ge Se Se Se Se Se Ge Ge Se Ge Se Se Se Se Se esas 
a ee ea ek tk a et ik a a ns at nk a ot a a as a a 


894 
895 FAT ATR LIST -0,16,0] = ATRSC™ eRECATIRG 
38 FAT_AT 440.32.0) = = OLD. ATTR; | 
9 FATA ATR™ att 8,0,32,0 
P 2898 STATUS = $Q10W( 
P 2899 Ceioe ACCESS 
P 2900 CHAN=, OUTPUT_CHAN, 
P 2901 10SB=10SB 
90 PS=FAT_ATR_LIST); 
90 IF .STATUS"THEN STATUS = .10SBC0); 
904 iF NOT .STATUS 
302 THEN Le ERROR ( 
| 
308 BACKUP$_READATTR, 
908 .OUTPUT FAB, 
909 *STATUST. | 
311 | | 
| ‘ 
ai¢ } Copy HIBLK to the new record attributes. 
gis OUTPUT_RECATTRCFATSL_HIBLK) = .OLD_RECATTRCFATSL_HIBLK); 
91 
$17 Write the record attributes. 
Pp 319 STATUS = $010W( 
P 2920 FUNC=10$ DEACCESS, 
P 2921 CHAN=.QUTPUT_CHAN, 
P 29 5 10SB=10S8 
9 P ATR LIST) j 
924 IF .STATUS"THEN STATUS = .10SBL0]; 
925 IF NOT .STATUS 
926 THEN 


RESTOR Restore a save set bese Sep-19 AX-11 Bliss-32 V4.0-742 Pa 46 

VOe-000 CLOSE_RESTORE = close restored file Haat yi $f: 28; yi BACKUP. SRC IRESTORE .B325 1 vt (9) 

3 1381 9 4 FILE_ERROR( 

3 3 g 9 : 4 BAK Ure WRITEATTR, 

3 3 9 4 TPUT- FAB, 

3 1 930 4 « STATUS); 

3; 1385 931 END; 

He BR 

3 1 88 934 ! Depending on the operation, do nothing, issue a deaccess, or issue a 

3 : 14 4 5 : deassign channel. 

3; 1391 9 $ IF .COM_FLAGSCCOM_VERIFYING] AND .QUALCQUAL_OSAV) 
3 3 35 9 4 THEN 
3 139 9 BEGIN 

3 1394 40 4 IF .QUALCQUAL_PHYS] | 
3; 1395 941 4 
3 3 4] 942 & STATUS = TRUE 
3; 139 9435 4 SE 
3; 1398 944 BEGIN 
3; 1399 P 2945 STATUS = $010W 

3; 1400 P 2946 rUNCs1 0S DEACCESS, 

3 1401 P 2947 2 CHA N=. OUTPUT _ 

; 1008 94 [osB= | 
3 140 49 5 i. STATUS THEN STATUS = .10SBC0]; 
3 1404 950 5 END 
3 1405 951 4 END 
: 1e08 926 ; ELSE IF .QUALCQUAL_IMAG] 
3 140 95 THEN 
3: 1408 954 4 BEGIN 
3 1409 P 2955 4 STATUS = C$QI10W( 

3 1410 P 28 4 FUNC=10$_DEACCESS, 
7 1411 P 2957 4 CHAN=, OUTPUT _CHAN, 
3 \elg 958 4 10SB=]0SB); 

3 141 959 4 IF .STATUS THEN STATUS = .10SB[0] 
7 1414 960 4 END | 
3 1415 961 3 E 
3 1416 308 4 BEGIN 
3 1417 963 4 AA B- = te SS ENT CHRn .SUTPUT CHAN) ; 
3 1633 964 4 OUTPU = 0; 
3 141 965 END: 
: 1481 36 | 
3 14 § °48 ! If the close failed, issue an appropriate message. Also log the 
3 1 ? $3 operation if requested. 
3 1425 71 IF .QUALCQUAL_COMP) 

; 1428 2 3 THEN 

3 14 75 4 BEGIN 

3 1428 74 4 F NOT .STATUS 

3 1429 75 4 H 

3 14350 A 4 FILE_E 

3 103) 77 4 BACKUPS. SLOSe te + STSSK_ERROR, 

3 14 g 4 4 ~OUTPUT FAB, 

3 14 79 4 STATUS 

> 1434 0 4 IF .QUALCQUAL vPods 

3 1435 1 4 

3 14 § 4 FILE_E 

3 143 4 BACKUPS. COMPARED, .OUTPUT_FAB); 


a? | 
RESTOR Restore a save set 16-Sep-1984 :21:13 AX-11 Bliss-32 V4.0-7 7 
yO 005 CLOSE_RESTORE = close restored file §7 908-1382 eae YBACKUP. RC RESTORE Bet ron (35 | 
: 14 984 END 
: 1038 985 3 ELSE 
3 1440 9 6 4 BEGIN 
3 1461 3 4 Lf NOT STATUS 
: 1208 9 § 4 FILE_ERROR( 
+ 1444 4 BACKUP$_CLOSEOUT + STSS$K_ERROR, 
+ 1445 991 4 .OUTPUT FAB, 
; 1446 992 4 STATUS); 
; 1447 993 4 IF .QUALCQUAL_LOG) 
$ 1449 995 4 FILE_ERROR( 
: 1450 996 2 TIF ,QUALCQUAL_IF11] AND .QUALCQUAL_OF11] AND .QUALCQUAL_VERIJ 
3 1451 99 THEN BACKUP$_COMPARED ! Log the verification 
; 1438 998 4 ELSE BACKUP$~CREATED), 
: 145 999 4 .OUTPUT_FAB); 
: 1488 80 ams | 
> 145 00 
: 1237 008 Note that no output file is open. 
> 1459 3603 OUTPUT_FLAGSCOUTPUT_OPEN] = FALSE; 
+ 1460 3006 OUTPUTFLAGSCOUTPUT~ IMPLICIT] = FALSE; 
+ 1461 3007 END; 
3 1462 3008 7 END; 
0081F .BLKB 1 
0014 0008 00820 P.AAD: WORD 8, 20 F | 
00000000" 00824 -ADDRESS COM_O_BSRDATE ; 
00000000 00828 ;LONG 0 ; | 
OFFC 00000 ENTRY CLOSE AR STORE, Save R2,R3,R4,R5,R6,R7,R8,- ; 2700. 
5B 000000006 00 9€ 00002 MOVAB SYSSDASSGN, R11 F | 
5A FAB CF 9E 00009 MOVAB COMPARE BLOCKS, R10 F 
59 90000000" F 9€ O00E MOVAB INCR_RSS, RO ; | 
: 00000006 60 9€ 0001 MOVAB SYS$OI0W, RB ; | 
00000006 00 9€ doit MOVAB FILE ERROR, R7 ; 
6 0000000" EF 9€ 000 MOVAB QUAL I2 Ré ; | 
3E FF ce HH 00 A MOVAB zi (SPS, SP ; 
7A 0154 ¢ E1 0002F BBC #3, OUTPUT_FLAGS, 5$ : 2728. 
69 b3 00 3 18: st JNER_RSS > 2741. 
FDBt CA 06 FB 00039 CALLS #0, INCREMENTAL_DELETE > 2743 
FE74 «OCA 0 re 00 CALLS #0, INCREMENTAL~SCAN > 2744 | 
FO 11 0004 BRB $ 2741 | 
0040 8F 00 6E : 00 2c 0045 2s: MOVCS #0, (SP), #0, #64, FIB 3 2750 
68 AE 00200189 BF D ue MOVL #2097408, FIB ; 75) 
6¢ E FF C9 D 05 MOVL INCR_FIB+10, FIB+4 > 2782 | 
9 AE FF? c9 : 0 MOVW INCRTFIB+14. FIB+8 > 27564 | 
6 AE 4 F 9A 0006 MOVZBL #64, ~FIB_DESC > 2755 | 
4 AE 68 AE 9E 0006 VAB_ FIB, FIBTDESC+4 > 2756. 


N 7 | 
RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 Pp 
v04-0 CLOSE_RES $10 ORE = close restored file g: Sep-19 4 OO fo;28 BACKUP. SRCIRESTORE .B325 1 ts (3 
7E 04 0006C CLRL ss = (SP) : 2765 
83 AF oF oF PUSHAB P.AAD : 
7E 7C CLRQ = =< SP) : 
7E 04 i CLRL = (SP) : 
74 AE 9F 0007 PUSHAB FIB_DESC : 
7E 7C 0078 CLRQ = = (SP) : 
78 AE 9F OOO7A PUSHAB 1088 3 
36 DD 0007D PUSHL #54 : 
0150 C6 DD O007F PUSHL  OUTPUT_CHAN : | 
E D4 00083 CLRL. = (SP) : 
ra. o¢ FB 0085 CALLS #12, SYS$QI10W : | 
07 5 00 8 BLBC 3$ t 2766 | 
0 58 AE C B MOVZWL 10S8. §TATUS : 
OF 50 ES O008F BLBS STATUS, 4$ : 3767 
50 DD 00092 38: PUSHL STATUS + 2772 
0158 C6 DD 00094 PUSHL FAB : grr 
000000006 8F DD 00098 PUSHL rece. WRITEATTR + 2769) 
6 03 FB 0009E CALLS ROR ; | 
0154 C6 08 8A OO0Al 4$: BICB2 OuTPOT FLAGS > 2775) 
0150 C6 DD 0006 PUSHL out t 2776) 
6B 01 FB OOOAA CALLS Py einatsen : 
13 11 OOOAD BRB : 377? | 
0154 C6 95 OOOAF 5$: TSTB © OUTPUT_FLAGS + 2779) 
11 18 00083 BGEQ : 
0150 ¢6 DD 00085 PUSHL OUTPUT CHAN t 2782 | 
6B 01 FB 00089 CALLS eyS$p ; 
0154 6 80 8F 8A O00BC BICB2 #158. OUTPUT. FLAGS : 2783) 
0150 C6 04 000C2 6$: CLRL OUTPUT_CHAN + 2784 | 
01 0154 (6 us 900¢6 $: BLBS OUTPUTFLAGS, 8$ + 2787 | 
52 FECO D6 OF OOOCC 8S: REMQUE @OUTPUT_WAIT, BCB : 2798. 
14 1D 00001 BVS 9$ ; 
52 DD 00003 PUSHL CB : 2800) 
000000006 00 01 FB 00005 CALLS #1, WAIT 3 | 
52 DD 000DC PUSHL > 2801 
000000006 00 01 FB OO0DE CALLS #1, FREE_BUFFER : 
E5 11 OO0E BRB : 2798 
33 02 Ab E8 000E7 9$: BLBS § QUAL+ 0$ > 2814 
2D 0154 (6 02 £0 OO0EB BBS #2, La Utéut _FLAGS, 10$ + 2815 
7, na 04 £0 OOOF1 BBS #4. OUTPUTTFLAGS, 108 : 2816 | 
22 0155 C6 E8 O00F7 Bras OufPUT _FLAGS+1, 10$ 3 381 
0170 6 016¢ (6 01 OOF CMPLD TPUTT “BLOCK, OUTPUT _MAXBLOCK ; 2818 
19 1A 0010 BGTRU 10$ ; 
01 016¢ £6 p 0105 CMPL TPUT_BLOCK, #1 ; 2819 
10A BEQL 3 
7E 16 C6 7D 0010C MOVG OUTPUT _BLOCK, (SP) > 2824. 
1 6 DD 00111 PUSHL OUTPUT™ : 2823 
000000006 &F DD 00115 PUSHL  #BACKUP$_VBNMISSING > 2821 | 
67 4 FB 118 CALLS #4, FILETERROR ; 
6A 03 Ab 4 €1 OO11E 10$: BBC a4, QUAL?15, 17$ 3 2829 
65 03 a6 6 Fl ot BBC 6, QUAL #15, 17$ ; 
01 As 5 001 TSTB ; 
60 18 00128 BGEQ ; 
0D FF AG 01 €1 001 : BBC #1, QUAL+11, 118 > 2835 
0158 ¢6 DD 001 PUSHL OUTPUT 3 2838 
000000006 8F DD 00136 PUSHL 4 ACKUP$_CREATED > 2837 
02 FB 0013C CALLS » FILETERROR : 


8 
REST Restore a save set ibs -1984 00:21:13 AX-11 Bliss-32 V4.0-742 P 49 
Oe 505 CLOSE_RESTORE = close restored file ~3007 1382 90: hi 3g YOACKUP SRE RESTORE .832;1 haat (9) 
15 66 118: BBC #5, QUAL4¢12, 12$ : 
000000006 Pus #BACKUPS$_STARTVERIFY 3830 
S$ 


5 €1 0013F ; 
rf DD 0014 HL st : 
000000006 00 1 FB 0014 CALLS #1 LIBSSIGNAL ; 
0008 c6 DD 001 PUSHL  INPUT_MAXBLOCK 3 2851 
| bs 4 CLRL (SP) : 
07 01€0 c6 3 £1 001 § 12$ BBC #1, OUTPUT_FILECHAR, 13$ + 2854 
016¢ c6 i 18 CPL OufPUuT_BLOtK, #1 : 
1 02 Ab €9 00165 138 BLBC  QUAL4+14, 15$ + 285 
5 0144 C6 DO 00169 MOVL. INPUT_VON_LIST, VBN : 286 
3 0144 : 9 166 14$:  MOVAB INPUT VBN-LIST, RO : 2863 | 
1) 1 CMPL VEN, R s 
15 13 00176 BEQL : 
7E OA A2 70 0178 MOVG 10(VBN), <(SP) : 2865. 
A 0 FB 17¢ CALLS #2, COMPARE_BLOCKS ; 
2 62 DO 0017F MOVL (VBN), VBN ; 2866 
: EA 11 00182 BRB : 2863 
0008 C6 DD 00184 15$:  PUSHL _INPUT_MAXBLOCK : 2870 
01 OD 01 PUSHL #1 : | 
6A 02 FB 0018A 168: CALLS #2, COMPARE_BLOCKS : 
03 66 0 & 0180 17$: BBC #5. QUAL+12, 19$ + 2876 
0091 31 00191 18$:  BRW 23§ : 
FC «AGB 95 00194 19$ TSTB  QUAL+8 ; 
F8 19 00197 BLSS ; 
F3 FE AG 03 £0 00199 BBS #3, QUAL+10, 18$ F 
SE DD O19 PUSHL §$ + 2887 
O3EF CA 01 FB OOIA CALLS #1 GET _ACP ATTRIBUTES : 
74 AE 00040020 8F DO 001A5 MOVL. #2621767 FAT_ATR_LIST : 3894 
78 «AE D8 AD 9E 001AD MOVAB OLD_RECATTR, FAT-ATR_LIST#4 : 896, 
70 «(AE OG 00182 CLRL «FAT -ATR_LIST+8 : 2897 | 
7E Be 018 LRL =(SP) : 2902. 
78 «AE OF 00187 PUSHAB FAT_ATR_LIST : 
7E 7¢€ OO1BA LRQ =( SB) : 
7E 7C 001BC CLRQ = =(SP) : 
7E 7C 001B CLROQ = (SP) : 
F8 AD OF OOIC PUSHAB 10SB ; 
32 DD OOIC PUSHL #50 : 
0150 C6 DD 001C¢ PUSHL  OUTPUT_CHAN : 
E D4 00109 CLRL isp) : 
$8 FB 001¢B CALLS #12, SYS$QI10W : 
é DO OO1CE RO, STATUS ; 
ee et Ss em arn — 
F 53 és the BLBS TATUS, as + 2904 
DD 00108 208: PUSHL : 2909 
0158 6 DD 001DD PUSHL OUTPUT FAB + 2908 
000000006 §8F DD 0011 PUSHL #BACKUPS_READATTR + 2906 | 
67 3 FB 1€7 CALLS #3, FILE ERROR : 
0190 C6 DC AD DO OO1EA 218: MOVE  OLD_RECATTR+4, OUTPUT_RECATIR+4 : 914 
7E D4 OO1F CLRL = = (SP) : 2923 
06 AE 9F OOTF PUSHAB ATR_LIST : 
7E 7 OF CLRO (SP) : 
7E 7C OO1F CLRQ =< SP) : 
7E 7€ 001F9 CLRQ = = (SP) : 
FB OAD OOF Our PUSHAB 1038 : 
34 DD OO1FE PUSHL # : 


p———__—_ ----- ---- —- - ---—----———_---— - 


i 
& 
/ REST Restore a save set ib-5e -1984 00:21:13 AX-11 Bliss-32 V4.0-74 p 
‘WO2~000 CLOSE RESTORE = close restored file 330-1 98e Bt HS EeACKUP. SRE RESTORE B S201 a (3 
0150 £6 DD PUSHL OUTPUT_CHAN ; 
D4 CLRL isp) : 
$ F CALLS #12, SYS$Q10W : 
D MOVL RO, STAT § : 
; ¢ BLBC STATUS, 22$ t 2926 
2 fe OA f F MOVZ2WL 10S8, STATUS : 
OF 3 E 13 BLBS STATUS, 23 + 2925 
dD 18 228 PUSHL STATUS : 29 
: 58 DD 0021 PUSHL OUTPUT_FAB + 2929 
000000006 DD 9 1 PUSHE } ACKUPS_WRITEATTR + 2927. 
21 6E Ab 23$: BBC #3. COM_FLAGS, 25$ t 2937 
03 Ab § 8 A TSTB  QUAL+15~ : a | 
Ic 1 0 0 BGEQ F 
05 $6 0 E f BBC #5, QUAL+12, 24$ + 2940 
1 00 00233 MOVL #1. STATUS + 2942 
g¢ 11 00 BRB 30$ : 
E 7C 00238 248: CLRQ =(SP) + 2948 
7E 7C 0023A CLRO 3 = SP) : 
7E 7C€ 0023C¢ CLRQ —_ =( SP) : 
7E 7C 0023E CLRQ = =( SP) : 
F8 AD OF 0024 PUSHAB 1058 F 
34 DD 0024 PUSHL #5 F 
0150 (C6 DD 0024 PUSHL QUTPUT._CHAN : 
C 11 00249 BRB 27$ ; 
50 0150 cé DO 00 48 25$: MOVL OUTPUT_CHAN, RO : 2958 
FE Ab E1 0025 BBC #3, QUAL+10, 298 : 2952 | 
QOOIFFFF BF 0 01 00 55 CMPL =s RO, #131071 : 295 
1A 1F 0025¢ BLSSU 26 ; 
7E 7C 0025 CLRQ 2s =( SP) 3 
7E 7C 00 CLRQ = = (SP) : 
7E 7C 00 62 CLRQ 2s = (SP) ; 
7E 7C 00264 CLRQ = (SP) F 
F8 AD SF 00266 PUSHAB 10SB F 
4 DD 00269 PUSHL #52 ; 
0 DD 00268 PUSHL RO ; 
7E 04 00260 CLRL. = = (SP) ; 
000000006 00 oc FB 0 of CALLS #12, STA_QIOW : 
14 11 00 6 BRB 28$ : 
7E 7C 00278 268:  CLRQ -=<(SP) ; 
7E 7C OO27A CLRQ = =( SP) ; 
7E 7C 0027C¢ CLRQ = SP) ; 
7E 7C 0027 CLRQ = =( SP) : 
FS =OAD OOF PUSHAB 1088 : 
4 0D PUSHL @ : 
0 DD PUSHL RO : 
E 04 0 87 276:  CLRL 5sP) ; 
68 F 9 CALLS #12, SYS$Q10W ; 
C 288 MOVL RO, STATUS : 
1 F BLBC STATUS, 30$ : 2959 
5 F8 OAD ; MOVZWL 1Os8. STATUS ; 
C BRB $ ; 3953 
0 DD 00298 298: SHL RO : 296 
68 1 F 9A CALLS #1, SYSSDASSGN 3 | 
——«§§0 oD moYL = RO, STATUS ; 
0150 £6 DS 002A CLRL OUTPUT_CHAN : 2964 
50 D2 00204 308:  MCOML STATUS? RO > 2976 


oo rn 


-— —-——__ — = Cit 


a 
ST Restore a save set ibese -1 2:21:13 AX-11 Bliss-32 V4.0-742 
Wbe-000 CLOSE RESTORE = close restored file 730b- 188 3 do88 EBacKUPLSRe RESTORE .832; 1 
FC 6D A? TSTB = QUAL +8 
1D 1 AA BEG 32$ 
OF 2 E AC L8C)—COfs«édRO,_-318 
| DD OO2AF PUSHL STATUS 
0158 DD 00281 PUSHL OUTPUT_FAB 
000000006 §F DD 00285 PUSHL #BACKUPS_CLOSEING2 
67 y, BB CALLS #3, FILE-ERROR 
41 FF 1 € BE 318: BBC #1, QUAL#11, 378 
0158 (6 Dp C PUSHL QufPUT _FAB 
A C BRB 4$ 
OF E9 002C9 328:  BLBC RO, 338 
DD 002¢ SHL STATUS 
0158 DD 002C PUSHL OUTPUT_FAB 
000000006 8F DD 0020 PUSHL #BACKUPS_ CLOSEOUT +2 
67 3 FB 00D CALLS #3, FIL FRROR 
24 FF OA i €1 DB 33$: BBC #1, QUAL711, 378 
0158 (C6 DD O02E PUSHL OUTPUT FAB 
12 03 A6 4 €1 00264 BBC #4, QUAL+15, 35$ 
0D Ab Eg SBC #6 QUAL +15, 5$ 
01 Ag 0 : TSTB guA 413 
0 1 0 F BGEQ «= 3 
000000006 f db 9 F3 34$: PUSHL #BACKUPS_COMPARED 
000000006 Be DD OO2FB 35$:  PUSHL #BACKUPS_CREATED 
? 02 FB 00301 gs: CALLS #2, FILE~ERROR 
0154 C6 11 BA 00304 378 BICB2 #17, OUTPUT_FLAGS 
04 00309 ET 


; Routine Size: 778 bytes, Routine Base: CODE + 082C 


Seine Shee Se ohne ie ot BE kita The ie 


re 


8 
STOR R = 7 3 3 7 e = 
bse FIN RESTOR ie restore or compare operati 1E-Se0-1984 90:94:33 Yockup sae RESTORE Boost Page 45 


Ps 


ZSBTTL ‘FIN_RESTORE = finish restore or compare operation’ 
GLOBAL ROUTINE FIN_RESTORE: NOVALUE= : re 


LEAF 


'e4 
! 
' FUNCTIONAL DESCRIPTION: 

This routine finishes a restore or compare operation. 


oO 


INPUT PARAMETERS: 
NONE 


SN NSS NSO 
SIaTeAFON2SSS 
CONAUE WN (OO ODONOAUS wn 


2 3.3 


if .QUALCQUAL_COMP) 
THEN 


RR 


BEGIN 
FREE_BUFFER(. COMPARE _BCB) ; 
COMPARE _BCB = 0; 


oo 


FPF 


i 
i 
i 
i 
0 i 
3 : IMPLICIT INPUTS: 
9 NONE 
0 i OUTPUT PARAMETERS: 
9 NONE 
81 9 ; IMPLICIT OUTPUTS: 
es 5 ROUTINE VALUE 
Be | SIDE Sal 
AR 03 i NONE 
89 O34 i 
90 035 lee 
33 $39 
3 038 
94 039 
95 040 i 
96 041 CLOSE_RESTORE(); 
98 be8 
44 044 Free the compare buffer if one was allocated. 
91 
08 
04 
05 
09 
08 
09 


: If this is a save verify pass, deassign the channel. 
LF ;,COM_FLAGSCCOM_VERIF YING] AND .QUALCQUAL_OSAV) 


Oooo 
OONO US WIN OOO 


BEGIN 
SDASSGN(CHAN=.QUTPUT_CHAN) ; 
OUTPUT_CHAN = 0; 


ts ss a a 


ee a ee a ee ee ed a od ed ss = 8 od dd = ds sd = 
COwOuUewnN—o 


PDP PP PPP APPA AAAI AMMII EE EEE EEE EEE EEE PEPE PPP PPP PPP PPP EEE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
Close the output file if one is open. 


SeSEse3 


! If this is an image restore, finish the file structure on the output 
! volumes. 


~ 
o 


—_—_—___—_-_- —_— -—-_—_—_- -————  _ --_- rw a ae 


F 8 
Restore a save se 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 P 3 
FIN_RESTOR M finish restore or compare operati eats 3 £0108 {BACKUP SRE RESTORE Boost 29° 493 


066 ' 
06 IF .QUALCQUAL_ IMAG) AND NOT .QUALCQUAL_COMP] 
pes oe STA_BISMOUNT_OUTPUT(); 


0094 .ENTRY FIN RESTORE, Save R2 : 3010 
52 00000000" EF 9E 0000 MOVAB Qua s R2 : 
FCES CF 9 a CALLS # CLOSE _RESTORE : 3041, 
2 ea io 
0224 ce DD 0001 PUSHL COMPARE_BCB + 3049 
000000006 00 pn FB 0016 CALLS HE FREE BUFFER i ane! 
14 72 2 §§ fi 0021 1$: BBC #3, COMFLAGS. 2s : 3056. 
07 A2 95 000 8 TSTB QUAL +1 s 
OF 18 000 BGEQ 3s $$ : 
0154 ce DD 00028 PUSHL OUTPUT_CHAN + 3059 
000000006 00 1 FB O002F CALLS #1, SYSSDASSGN : | 
0154 ce 4 00 CLAL fPUT_ CHAN + 3060 
0B 02 A2 03 €1 O003A 2S: BBC a3, QUAL +10, 3$ : 3067 
62 5 0003F TSTB © QUAL+ : | 
07 19 00041 BLSS : 
000000006 00 00 FB 00043 CALLS #0, STA_DISMOUNT_OUTPUT : 3068 
04 0004A 3$: RET : 3069 


; Routine Size: 75 bytes, Routine Base: CODE + 0836 


| 


8 

REST Restore a save set iBese -1984 00:21:13 AX-11 Bliss-32 V4.0-742 
be 008 SELECT FILE = apply selection to file 73007138 3 eid f 

3 3 70 1 ZSBITL "SELECT_FILE = apply selection to file’ 

1 § iH 1 ROUTINE SELECTIFILE (OUTPUT Set (BES oe 

:4 § 8 1 !46 

3 7 074 1! 

3; 1531 Boe 1 ! FUNCTIONAL DESCRIPTION: 

3 1 § 78 7? This routine evaluates selection criteria for a file retrieved from 
3 ; Bf ’ : an input save set. 

: 1535 O79 1 | INPUT PARAMETERS: 

3 7 080 1! OUTPUT_SEL_DESC = Pointer to descriptor that will be initialized with 
3 ; 7 tt ! } selection filespec if /SELECT qualifier matches. 
: 1539 O8$ 1 i IMPLICIT INPUTS: 

; 1540 One ,} OUTPUT_FAB = Pointer to the FAB. 

3 1541 ; 3.3.2 OUTPUT_ = Pointer to the NAM block. 

3 : rh} Bae : } OUTPUT_ATTBUF = The attributes from the save set. 

I 1564 088 1 ! OUTPUT PARAMETERS: 

Hea coer bg fe 

; 1309 091 1°! IMPLICIT gutPurs: 

Ha 8 wat = 

: 1550 094 1 ' ROUTINE VALUE: 

3 133) Bee : True if the file meets the selection criteria, false otherwise. 

; 1888 097 1 | SIDE EFFECTS: 

3; 1554 098 1! NONE 

3; 1555 099 1! 

3; 1556 100 1 !-- 

3: 1557 101 +1 

ot ee a 

3 1560 104 OUTPUT_SEL_D&SC:REF VECTOR; ! Pointer to descriptor 

: 1561 105 LOCAL 

3 1268 106 CMDDATE: REF VECTOR, ! Pointer to command selection date 
: 1ee? +4 FILDATE: REF VECTOR; !' Pointer to file selection date 

: 1565 109 

2 1208 110 IF .QUALCQUAL_BEFO] OR .QUALCQUAL_SINC) 

3; 156 111 THEN 

3; 1568 18 BEGIN 

s 3 44 11 IF .QUALCQUAL_BACK] THEN FILDATE = OUTPUT_ATTBUF FAR_BAKDATE) ELSE 

: 1570 114 IF .QUALCQUAL_CREA] THEN FILDATE = OUTPUT_ATTBUFCFAR_CREDATES ELSE 

3; 1571 115 IF .QUALCQUAL_EXPI] THEN FILDATE = OUTPUT_ATTBUF FAR-EXPDATE) ELSE 

3 1378 116 FILDATE = OUTPUT_ATTBUFCFAR_REVDATE); 

13h Hi =~ 

: 1398 119 

3 1376 ' H BEFORE 

: 1378 1 : IF .QUALCQUAL_BEFO) 

3 15 1 THEN 

; 1580 124 BEGIN 

; 1581 125 IF ,QUALCQUAL_BEFO_BACK) 

3; 1582 126 THEN CMDDATE = OUTPUT_ATTBUFCFAR_BAKDATE) 


BACKUP. SRC JRESTORE .832;1 


Pa 54 
9D 


4.56 -32 v4.0-742 Page 55 
16-Sep-1 2:21:13 AX-11 Bi iss . Q Pm 
st - :46: »SRCJRESTORE .832;1 
VOe-000 SELECT FILE = apply selection to file $73e013be 89:2h:se — EBAcKuPes 
QUAL_BEFO_VALUE]; 
: 1583 127 SE ATE = QUALC : os tae: : 
A HR] CSREES EAA wees nex se rs 
: 14 1 ND; 
: 1 
: 1 1 : 
: 1 ' ! EXCLUDE 
: i 91 s IF, ,QUALCQUAL EXCL 
; i 3 1 BEGIN 
: i 3¢ i 4 — EXCL: REF BBLOCK; 
$1 140 
; -QUALCQUAL_EXCL_LISTJ; 
He | aie ems on 
: 1288 1 CQUAL_EXCL_DESCJ) THEN RETURN : 
: TCHC(OUTPUT_FILENAME, EXCLCQUAL_EXCL_ 
: 1804 148 t EXCL S  NEXCLEQUAL NEXT 16 
: 1608 146 END; 
: 180% 148 _ 
HBS HS $s seer 
: 160 133 if .QUALCQUAL_SELEJ 
: 1608 ; 
; 1830 132 THEN EGIN 
> 161 
: 182 136 LOCA Le: REF BBLOCK; 
; te 138 SELE = .QUALCQUAL_SELE_LIST); 
+ 161 
: 1819 189 ¢ cree .SELE NEQ 0 DO 
: 1818 186 2 IF MATCH(OUTPUT_FILENAME, SELECQUAL_SELE_DESC) 
+ 1620 164 5 THEN . 
; 1e2 ¢ art ECQUAL_SELE_DESC], DSC$W_LENGTH); 
: 163 166 § GUIPUT.SEL_DESCEO, = .BOLOCKESELETOUAL.SELE DESC. DSCEY LENGTHI:. 
16 § 167 6 OU 
+ 1624 168 EXITLOOP FALSE; 
: 1882 199 SELE = .SELECQUAL_NEXT); 
: 18 $ i ° END 
fz in 
: HEN 
: ig ; bi mn RETURN FALSE; 
° 175 3 
: ig 176 
EH 8 ces 
‘ ; 
: i 180 iF .QUALCQUAL_1_OWNE) 
: 16 
: 1839 iB - ¢ QUAL COUAL 1_OWN_WGRP) OR .OUTPUT_ATTBUFCFAR_UICGROUP] EQL .QUALCQUAL_1_OWN_GRPJ) AND 


ere rr as ES RE See I A LISD tect Rie RN We ote 


T Rest e set -Sep-19 AX-11 Bliss-32 V4.0-742 P 56 
vOL-000 SELECT FILE = apply selection to file esta 9 39:25:28 FaAckup’SneSaesroné wsoe1 296 41) 
: 1640 4 (,QUALCQUAL_1_OWN_WMEM] OR .OUTPUT_ATTBUFCFAR_UICMEMBER] EQL .QUALCOQUAL_1_OWN_MEMJ)) 
; 14¢ RETURN FALSE; 
: 1644 1 
: 1645 9 2! SINCE 
; 1ge9 13 if .QUALCQUAL_SINCJ 
: 1868 138 aig 
> 1650 194 IF QUAL QUAL xS}NCBA 
3 1882 136 ins cmODATS . “BUTPT ar arvewe tree Ace 
> 165 19 IF -FICDATER LSSU .C CRDDATE eh t ayat RETURN FALSE; 
; 1654 198 IF :FILDATELI } EQLU .CMDDATEL1) AND FILDATECO LSU .CMDDATELO] THEN RETURN FALSE; 
; 1655 199 END; 
; 1887 01 
> 1658 08 ! VOLUME 
: 1829 §2 ' 
> 1661 05 
3 106¢ 8 Passes all tests, return true. 
> 1664 08 2 TRUE 
> 1665 09 1 END; 
FC 00000 SELECT_FILE: 
_* ~ ,WORD Seve ae R3,R4,R5,R6,R7 ; 3071 
57 000000006 00 9€ 0000 MOVAB marc R7 F 
56 00000000' EF 9 000 MOVAB (v6, Rg ; 
05 66 2 €0 00010 BBS oy “Quits 1$ > 3110 
28 05 Ab 4 €1 00014 BBC #4, UAL +1$, 5$ F 
7 66 1 a 0019 1$: BBC “28 : 3113 
4 01c8 «366 f 9010 MOVAB hit AT bu +72, FILDATE : 
07 01 a6 OF LT bonds 28 Bae 5 2 3114 
54 0180 C6 5: 09 . MOVAB gin ALT Féur 68, FILDATE ; 
1 : BBC QUAL+ : 3115 
sal " $¢ 01¢0 cg 5 33 3 ” MOVAB fpuT ALT TUE S64, FILDATE : 
54 0188 866 9 8 C 4$: MOVAB TPUT_ATTBUF +56, FILDATE > 3116 
20 66 03 e! 4] 5$: BBC i. 0 QUAL + 9 135 
8 once 6 5 : HOVAB OufPut A iTteutare, CMDDATE ; 3126 
A $ QUAL+16, CMDDATE > 3127 
04 Fe} 88 ae of 4 H 4(FILDATE), 4(CMDDATE) ; 3138 
63 12 H BNE” ; 3129 
5 4 D CMPL  (FILDATE), (CMDDATE) : | 
. 83 F 0060 BLSSU 9S : 


ay 


8 | 
STOR Restore a save set Igege -1984 00:21: AX-11 Bliss<-32 v4.0-742 P 7 
VO2-000 SELECT FILE - apply selection to file 730071382 Bae} YBACKUP SRE RESTORE .632;1 age 3) | 
008D 31 $: BRw 19$ : 
18 01 ag BP Hi é §: BBC #4, QUAL+9, 118 + 3135 | 
5 28 OA : A MOVL QuAL+ 8, EXCL + 3141 
1 10$: BEQL 118 3 3142, 
04 Ad 9F PUSHAB 4(EXCL) + 3144. 
0180 F 0007 PUSHAB OUTPUT_FILENAME : 
$7 F 7 CALLS #2, MATCH ; 
3 t 7A BLBS RO, 19S : 
5 * p 7D MOVL (EXCL), EXCL + 3145 
FC 1 BRB 10$ + 3142. 
29 05 ag E1 11$: BBC #3, QUAL+13, 14$ : 13 | 
5 3C b9 6 MOVL  QUAL+68, SELE : 3158) 
6 12$:  BEQL : 3161. 
52 04 A3 9E 000 MOVAB 4{SELE), R2 : 3163) 
5 po 0091 PUSHL : | 
0180 F 0098 PUSHAB OUTPUT_FILENAME ; 
67 FB 09 CALLS , MATCH : 
9 7 O09A BLBC =._—«aRO,_ «138 ; 
04 A bo 9D OvVL  oufPuT SEL _DESC, RO 3 3166) 
6 6 ¢ O0A1 MOVZWL (R2), TRO) : | 
04 Ad 04 Ad dO 000A4 OVL  4(R25, 4(RO) : 3167) 
05 11 0009 BRB 14$ ; 168 | 
53 B 00 QOOAB 13$:  MOVL (SELE), SELE : 3170) 
DB 1 QOAE BRB les : 3161) 
1A 03 Ab 0 £1 000B0 14$: BBC #5, QUAL+11, 168 : 180 
08 03 Ab 6 £0 00085 BBS #6, QUAL+11, 15$ : 3183) 
6 Ab O1E2 £6 81 OOOBA CMPW OUTPUT _ATTBUF +98, QUAL +62 F 
0 iF 45 BNEQ $ Py | 
03 A6 95 000C2 15$: TSTB  QUAL+11 ; 3184) 
08 19 000¢ BLSS 16 : 
34 AG 01£0 $ B1 000C7 CMPW OUTPUT _ATTBUF +96, QUAL +60 : | 
12 000CD BNEQ 19S F 
21 05 Ab 4 €1 OOOCF 16$: BBC #4, QUAL+13, 208 ; 3191 
07 05 A 05 3 00D4 BBC #5. QUAL#13, 17$ : 3194 | 
5 01¢8 6 oF 9009 MOVAB QUfPUT _ATTBUF +72, CMDDATE ; 3195 | 
55 18 Ab 9 00E0 17$:  MOVAB QUAL+32, CMDDATE : 3196 | 
06 «AS 04 AG D1 OO0E4 18$:  CMPL 4(FILDATE), 4(CMDDATE) : 3197 | 
7 16 000E9 BLSSU-:19$ : 
8 12 O00E BNE 20$ + 3198 | 
65 64 D1 OO0E CMPL = (FILDATE), (CMDDATE) ; 
3 1€ 000F BGEQU 208 : 
0 pb, OOF2 19$:  CLRL RO ; 
4 OOF RET ; 
50 01 b0 F5 208: MOVL #1, RO : 3209. 
4 000F8 RET : 


3; Routine Size: 249 bytes, Routine Base: CODE + 0B81 


Kk 8 
REST Restore a save set 16-Sep-1984 00:21: AX-11 Bliss-32 V4.0-742 Pa 8 
Wh 008 CHECK. EOF BLOCK = check file EOF §7920- 1382 90: 2hi 38 YBACKUPSRe aes TORE a 2;1 ae 38 
: 1667 19 1 ZSBITL “CHECK. OF -BLOCK - check file EOF’ 
3 } ! : ROUTINE CHECK-EOF-BLOCK: NOVALUE= 
3 1870 i 1 {ee 
3: 167 14 $1! 
3 1o7¢ 15 1 ! FUNCTIONAL DESCRIPTION: 
3: 167 1 1! This routine is called when a file to be compared has been opened to 
3 19f0 " on check the EOF position of the file against the EOF position from the 
3; 1675 18 #1! save set. 
3 1676 19 1! 
: 167 0 1 ! INPUT PARAMETERS: 
3 1978 eo NONE 
3; 16 ¢ 1! 
3; 1680 1 ! IMPLICIT INPUTS: 
; et » 2 NONE 
’y ¢ $ 1! 
3: 168 $ 1 ! OUTPUT PARAMETERS: 
> 1684 1! NONE 
3: 1685 : 1! 
; 1088 1 ! IMPLICIT OUTPUTS: 
3; 168 01! NONE 
3; 1688 : ee 
3: 1689 ¢ 1 ! ROUTINE VALUE: 
3; 1690 1! NONE 
3; 1691 » 2 
3 1696 5 1! SIDE EFFECTS: 
3; 169 te NONE 
3 1694 37 1! 
3: 1695 38 1 Se- 
3: 1696 39 (1 
3; 1697 40 BEGIN 
3; 1698 sel LOCAL 
3 1699 $§ FAT_BUFFER: BBLOCKCFATSC_LENGTH],  ! Local buffer for attributes 
: 1700 24 SBK_BUFFER: BBLOCK(8), ' Local buffer for statistics block 
3; 1701 see STATUS, ' Status return 
3 1708 45 10SB: yecronts WORD], ! 1/0 status block 
: EA 39 ATR_LIST: BBLOCKL26); ! Read attributes parameter 
$ 1705 48 
3 1708 Sep : Initialize the read attributes parameter. 
3 1708 51 2 ATR_LIST Q. 16,0] = ATRS$S_RECATIR; 
3; 1709 26 ATR_LISTL2,0,16,0) = ATRSC_RECATIR; 
: 1710 5 ATR_LIST(4,0,32.0) = FAT_BOFFER; 
3 1711 54 ATR-LIST . 1 . 
: 718 55 2 ATR7LISTC10,6,16,0) = ATRSC_STATBLK; 
3; 171 28 ATR_LISTL12,0,32, = 30K BOF FER; 
; 1714 5 ATR“LISTL16.0. 32.0) = 0; 
3; 1715 58 
3 i7i¢ 59 
3 aE $9 : Read attributes of the file to be compared. 
5 1719 Pp 6¢ STATUS = C$Q10W( 
3; 1720 P 326 FUNC=10$_ ACCESS 
> 1721 P 3264 CHAN=. OUTPUT _CHAN, 
317 é P 3265 19sB=10s8 
; 17 P5=ATR_LIST); 


eve Sep-1984 00:21:13 - VAX=11 Bliss-32 v4.0-742 p 9 
COtK : ‘check file EOF ir 3epr18be Siicosse «— EBACKUPeSRe TRE STORE asoe1 age 3) 


F asyAtus THEN STATUS = .1J0SB{0); 
iF NO T .STATUS 
HEN 
BAcKOrs _READATTR, 
PUT"FAB, 
roti Tus); 


Check the EOF block against that determined from the file attribute record. 
However, if this is the first record of a continuation tape verify pass, it 


CONAN E WN OO CONOUSWN—OOON Orv 


Ate et tas 4 ee eet PPP PN BP WN A+ mo 


SODNO NEW 0 OONAUSWN $OVONOUE wn 


Compute the two EOF block values. 


in NPUT_EOF = ROT(.FAT_BUFFERCFATSL_EFBLKI, 
IF “fT BUELERLCAT SWC FFBYTE) EQL 0, 


A AAWNWIW 


LALA ANILAILA. AAAI AAAI AIP PPO POPP 


i] 
i 
8 i cannot be checked. In this gees the true EFBLK is not available from the 
9 ! file attributes. Further, if this is a restore verify pass, it cannot be 
me checked, because the EFBLK may ao yet have been written. 
4 if 
és oa COM FLAGST COM AGSCOUTPUT Ne te ie OR ‘ 
45 NBBLOCKE? OUTPUT cBCBLBCa. reat BBHSW_VOLNUM] LEQ 1) 
és , at (.COM_FLAGSCCOM_VERIFYING] AND .QUALCQUAL_OF11)) 
eit 
1 INPUT_EOF ' End of file block from compare file 
; SAVE_SET_EOF; ! End of file block from save set 
4 
g 
7 
8 
9 


PPA ASIII 


INPUT =”. INPUT EOF 
SAVE_SET_EOF = AROT (OUTPUT nECATTREFATSL _EFBLK], 16); 
IF .GUTPOT_RECATTRCFATSW_FFBYTE) EQL 0 

THEN SAVE. _SET_EOF = [SAVE_SET_EOF - 1; 


SOOOCOCOCOCCOOOOONOUO 


IF_.INPUT_EOF NEQ .SAVE_SET_EOF 


FILE _ERROR( 
BACKUPS A atiaia 
OUTPUT—F AB); 


GSALEVLS 


WOOO: 


on i | 


fete the highest block to be compared by the allocated size of the compare 


~~ 


Be Be Se Se Se Be Se Se Ge Se Se Ge Ge Bs Ge Ge Ge Ge Se Ge Se Ge SF Ss Ge Se Ge Ss Se Ge Se Se Ss Se SF Be Ss Ss Se Se Se SS SS Ss Se Se Se Se Se Sse Se Se Sens 
md a a ta kk a a a a at ks a ot st 2 2s ts Ss SS SS 2s 2s a Ls ss SS SY YS YS YY 
SNS SINS SSSI SNS SSS SSS SSS SSS SS SSG 


NOU LWN OO 
hee SO OO 


WAAWNWw 


: Lim 

1 * 

i 

ou veut MAXBLOCK = MINU(.OUTPUT_MAXBLOCK, ROT(.SBK_BUFFERCSBKSL_FILESIZEJ, 16)); 


~N 
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| OM-DoOgio2= 4a." ~ a AAA a 23 »sSs5D>xMu OwsaDcoo wd @ 
| ewa~m Oo i & a oaaq@ aes6UcaclmlUCUhROO HD Q &-@Or-aw a7ce ‘toes j 
> POON + YEMYMNMOD OW NYEMMNMNO WVetvdeaereae « s eww 7 Or 20 | 
| mo a= DOVE DOSY ewe vr OMOw OY Ey ywOMow ne FOF EF DOM KM T OM O-— LOZ 
| Ct OY] Mu0 | SuBvecogce i titi -BeiBswvidcititBzaeiBw-uvo2z2 BVO mMCsaz2Vulh-= | 
| pale v7 } 
i ws ve 2 | 2 2 J 
j oo oe oeee972 2 > a W a WB WI > 
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om DMO>r lr rV PS Srl FA VECVETEVWMVE JLOIEVTTLCVWVVVE WO [OVO GRO SFO OOK ewe 
OOO PP PE CR CACECOCUL LE COBCE CCU EE COeS MEET Oe eee eC SSSe aoe 
wv = = OAFSFEFVEF VOMVA VWVVA AA VYMVA Vous daavv MT @MAaA4aleoeoaztzsvoOoeer-OOoex 
i aon w 
| -—— s 
i i) td 
aa uv 
@oee w ee ee oe oe ee 
nn = vs eo & 4 oe a 
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Routine Base: CODE + OC7A 
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— 
oO 
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oo 
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foo -OOWoOW SINow 
SOOOOCOCOOCOOSoOOCSoo 
OOCOCOCOOOoOoCoOoooo 
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; Routine Size: 239 bytes, 


p-1984 00:21 


N 
Rest e set i 1 
CHECK_EOF BLOCK = check file EOF -Sep-1984 21:46 


3 
:26 


ret Bliss-32 V4.0-742 
BACKUP. SRC IJRESTORE .632; 1 


TPUT_RECATTR+12 
SAVE_SET_EOF 
NPUT_EOF, SAVE_SET_EOF 
OUTPUT_FAB 
#BACKUPS$_EOFMISMATCH 
#2, FILE-ERROR 
#16, SBK"BUFFER+4, R1 
OUTPUT_MAXBLOCK, RO 
R P R1 


R1, RO 
RO, OUTPUT_MAXBLOCK 
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9 
RESTOR Restore a save set ip-Se =1984 00:21:13 A 
vOe~000 CREATE DIRECTORY = create a directory file =3007 1382 $0 f6:86 ic 
; 1779 1 1 RSBTTL “CREATE_DIRECTORY = create a directory file’ 
3 if : § : ROUTINE CREATE_DIRECTORY: NOVALUE= 
: 17 & 1 te 
3: 17 7 >*e% 
3 17 $ 1 ! FUNCTIONAL DESCRIPTION: 
3; 1785 3 This routine creates a erroctery in response to a file attribute 
; 1796 8 ; } record describing a directory file. 
: 1788 0 1! INPUT PARAMETERS: 
3 1708 1 : : NONE 
: 179 g 1} IMPLICIT INPUTS: 
3 16 : : : NONE 
; 1538 1 | OUTPUT PARAMETERS: 
; 1795 1! NONE 
> 1796 B81: 
3; 1797 9 1! IMPLICIT OUTPUTS: 
; 1798 01! NONE 
: 1799 41 13 
; 1800 $5 1 ! ROUTINE VALUE: 
3; 1801 45 1! NONE 
; 180 4 1! 
3; 180 45 1! SIDE EFFECTS: 
3: 1804 rf 1! NONE 
3; 1805 47 1! 
; 1806 48 1 !<- 
: 1808 366 > BEGIN 
: 1809 51 2 LOCAL 
: 1810 2g DIR_PROT WORD , ! Protection for new directory 
; 1811 5 FILE_ID: BBLOCKCFIDSC_LENGTH], ! File ID of directory 
3 Ing 54 BAKDATE: VECTOR(2], ! Backup date of directory 
: 181 55 DESC: VECTOR(C2), ! Descriptor for directory 
3: 1814 56 OWNER ' Owner 
: 1815 57 STATUS; i Status variable 
Siete 35 
; 13\8 o Indicate that a file was seen. 
: 18 9 6¢ COM_FLAGSCCOM_FILESEEN] = TRUE; 
> 64 
3 18 § 65 : Assign a channel to the output volume. 
Bs Sp BEStEE] s -gurpu wants 
3 =, : 
3 1 $ 3 STATUS = ASSIGN_OOTPUT_CHANREL (DESC, OUTPUT_CHAN, 0, 0); 
3 1 0 If NOT .STATUS 
3 1 71 THEN 
3 1 Ks BEGIN 
: 1831 7 SIGNAL (BACKUP$_OPENOUT + STSSK_ERROR, 1, DESC, .STATUS); 
s 3 ¢ 74 RETURN; 
5 : fg END; 
; 1838 is 


poo 


Poe 185 


STOR @ save set bese “19 Ax-11 Oi ies -32 v4.0-762 P 3 

Whe 000 DIRECTORY = create a directory file ety 90: i: i BACKUP. SRC} RESTORE. 832;1 age 49) 
: 1 ! The expanded gern is either of the fore dev: :Cdirl.dir2]dir3.DIR:1, which 
3 1 ' we must vt f85 § ore fo dev: eres dird.dir nput to FREATS- DIR, or of the 
: : ; form de 00000Jdir1.DIR;1, which we tranctera to dev:(dirl 

: 1840 VECTORE OUTPUT LyMAntNans TYPE], 0; ,BYTE) = 

: 1 ” .VECTORE .OOTPUT_NAMCRAMSL _ ania’ “1; ,BYTE); 

:4 : .OUTPUT_NAMCNAMSB_DIR] EQL 8 A 

; ! : THENCE INDINOT _CH(6,- .OUTPUT | WAMCNAMSL _DIRJ+1, %C°0") EQL O 

:4 6 BEGIN 

: 1 CHSMOVE ( 

> 1848 .OUTPUT_NAM NAMSB _NAMEJ+1, 

> 1869 “OUTPUT” “NAMCNAMSL NAME, 

3 1850 OUTPU PUTNAM NAMSL~ DIRJ+ 

; 1833 pesct OUTPUT _NAMCNAMSB Divs + .OUTPUT_NAMLNAMSB_NAME] + 2; 

> 185 

3 132e 

> 1855 ite f.ouTPut NAMCNAMSL_NAME] : ,BYTE) = 

: 1856 Phe 0] = .OUTPUT_NAMCNAMSL mir tth = OUTPUT WAR CHAS. dev] + 1; 

: 1858 OUTPUT NAMCNAMSB_ESL] = .DESCCO): 

5 Ht $4 DESCCIJ = .OUTPUT_NAMCNAMSL_DEV); 

; 1808 

3 H +91 ! Determine the owner UIC of the created directory according to the output 
: 1ee% ; qualifiers. 

> 1865 4 OUNER = JPI_UIC; 

+ 1866 40 IF .QUAL QuAC. 0_OWN_ORIG) OR .QUALCQUAL INCR] THEN OWNER = .OUTPUT_ATTBUFCFAR_UIC); 
+ 1867 IF .QUALCQUAL—O-OWN-PARE] THEN OWNER = 

3 1368 oi? IF .QUALCQUAL-0_OWN_UIC] THEN OWNER = “QUAL CQUAL _0_OWN_VALUJ; 

: 1870 le ! Set up the directory protection 

; 1872 414 2 iF .QUALC@UAL_INTE) 

: 187 415 THEN 

: 1874 416 BEGIN 

; 1875 41 SYSSSETDFPROT ( 9, DIR PROT ) 

: 1876 418 DIR. PROT = .DIR Phot OR xx'88eh" ; 

; 1373 420 ELSE DIR_PROT = .OUTPUT_ATTBUFLFAR_FPRO) ; 

: : : ? § : Create the directory. 

: 1 3 426 2 STATUS = CREATE_DIR( 

2. 15 Sune 

> 1885 $ "DIR. PROT 

31 8 -OUTPU PUT RECATIREFATSU. VERSIONS), 

: 1 FILE_ID 

31 0 BAKDATES; 

: 1889 431 IF NOT .STATUS 

: 1 4 : THEN 

+ 1891 4 BEGIN 

+ 1892 4 SIGNAL ( 


— 


E 
j 


ST Restore a sa Sep-1984 13 AX-11 8 
VOe-000 CREATE_DI Tractor’ = - create a directory file 1$-50-198 ie £533 26 
; 1893 5 BACKUPS CREDIRERR, 1, DESC, 

3: 1894 » STATUS); 

3; 1895 SDAS GNCCHANS, —_ _CHAN) ; 

3 1 38 gine _ CHAN 

: 189; RETUR 

3; 1898 40 ENDS 

3; 1899 41 

; 1900 rr 

3 st rb Log the creation if requested. 

; 1308 445 IF .QUALCQUAL_LOG] AND .STATUS EQL SS$_CREATED 

3; 1904 ré THEN 

: 1808 t see CKUPS.CREDIR, 1. DESC) 

He ig 

3; 1909 2 : Check for special /INCREMENTAL processing of saved directory contents 
: 1910 26 : ogg place if the creation date of the save set is equal to or later 
3 1911 5 ! the backup date of the directory. 

3 I3i¢ 54 ! 

3; 191 32 

3 19146 $ cum Cee, INCR] AND 

3; 1915 5 *OUTPUT_ATTBUFLFAR ~pinucteye? bth, 7s AND 

; Hb ae 58 (.COM “4 “BSROATERA I preu. 8 BAKDAT 

3 191 59 4 ([COM_O_BSRDATEL1) pot -B BAKBATELS ‘ AND 

3; 1918 60 -COM_O_BSRDATECO] GEQU .BAKDATELO))) 
3 1919 61 THEN 

3; 19 6 BEGIN 

3: 1921 6 OUTPUT _FLAGSCOUTPUT_INCR_DIR] = TRUE; 

3 19 ; 64 CHSFILE(O, FIBSC LERSTH “INCR_FIB); 

: 19 465 INCR_FIB F1BS\_DTD_NUM = .FICE_10CFIDOSW_ NUR 
> 1924 INCR_F IBLF IBSW_DID_SEQ) = .FILE-1OCF1D$W_SEQ 
3; 1925 46 INCR FIBLFIBSW_DID_RVN) = .FILE_IDCFIDSW_ RVNI: 
3 1368 68 INCREMENTAL_SCAN(); 

3; 1927 469 END 

3; 1928 70 ELSE 

3 1980 ot OUTPUT_FLAGSCOUTPUT_DIR_OPEN] = TRUE ; 

3 1931 ig OUTPUT_NAMCNAMSW_ 4 NUM) = .FILE_IDCFIDSW_ NUM); 

3 1936 474 OUTPUT- NAM NAMSW_ FID “SEQ = .FILE_ID FIDSW_ SEQ 

3 1387 e OUTPUT-NAMCNAMSW_FID-RVN] = .FILE-IDCFIOSW- RVNI: 

3; 1935 rf END; 


O7FC 00000 CREATE _DIRECTORY: 
- WORD 
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04 AE 5 cs BA 0028 ROVIBL gyfpur desc 
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TORY = 

08 AE 
000000006 99 
11 
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- $0 : 
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50 
06 
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82 
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04 AE 
OB A6 
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FE A 
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MOF FPWOS PMUULMDON—GCOoOfW 


o— 
OMweo 
OOOOOCOCOOCSoSoSooO 
ooo 
Ssssces 
+m > oo +4 


oooooo 


90 OO0A9 
fie 
EI 0OBC 
dO t9 
E1 C6 
Bia 
dO 00 56 
E1 00004 
DD 00009 
D4 00008 
F DD 
A E4 
1 9 
saa 
F F 
C F6 
C FB 
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-Sep-1 
~Sep-1 


— 
an 
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—O 
ow 
CGaee 


$: 


be ST:0:28 — EBXcKUe®SneSnesrone vases 


68(RO), DESC +4 
-(SP) 
OUTPUT CHAN 
#4, ASSIGN_OUTPUT_CHANNEL 
RO, STAT 
STATUS, 
STATUS 
8 
#BACKUPS_OPENOUT+2 
#4, LIBSSIGNAL 
TPUT_NAM, R6 


78(R6)> 33 
=1(R2), @80(R6) 
8(R6), # 


2(R6), RO 
#48, #6, 1(RO) 


DBNDVAD 2Nm 


o_-™ A 
z> DD 
. 
@- 


R 
0), DESC 
1 


ne 
- 80(R6), RO 


Om — COs M-— ON) OW — 


4 ae Spee bp ge ene 
—AYwnaa We 


QuAL+ 
#4, QUAL+12, 8$ 
QUAL+64, OWNER 
. QUAL+14, 9% 


10. 6$ 
output ATTBUF #96, OWNER 
& e 1 e 7$ 
OWNE 


P 
=(SP) 

# SYSSSETDE PROT 
# 49 2, DIR_PROT 
OUTPUT _ATTBUF+110, DIR_PROT 
aa 

OUTPOT RECATTR+30, -(SP) 
DIR_PROT, (SP) 


Page $3 


2 
; 3385. 


: 3585 


: 5575 


; 3386 


3; Routine Size: 


3; 1936 


‘9 
Restore a save set yw at 
CREATE _DIRECTORY = create a directory file -Sep-1 
5 0 FF 
18 =«OA BP ° 1 
000000006 F 1 
i) 1 
‘ + 6 001 
08 A P 11 
dD a 
00000000G 8F DbD 0011 
0150 C8 bb Ool2l 
000000006 00 1 fe 125 
0150 c8 : 
17 FF =A 1 €1 00131 11S: 
00000619 &F 7 9 1 
OE 12 4 
04 af QF 15F 
8 DD 00142 
00000000G 8F DD 00144 
69 33 FB OO14A 
37 FE ry 4 3 014D 12$: 
0 O1E9 g8 1 R136 
12 001 
10 AE 0090 8 01 00159 
A 1A 0015F 
2 ie dhe 
OC AE oosc 468 OC 163 
1E 1F 00169 
0154 (C8 08 88 0168 13$: 
6E 00 2C 001 9 
6A pty 
OA AA 14 AE 00 00178 
bg BA 18 AE B0 0017D 
ood ss if S35 
0154 8 90 F 8 33? 14$: 
0 015C C8 00 0018F 15$: 
3 AO 14 AE 00 00194 
8 a0 18 AE +4 199 
4 0019€ 
415 bytes, Routine Base: CODE + 0D69 
3478 1 


3b 89:24:28 — FaAckue’ $a Snesromé esos 


PUSHL OWNER 

PUSHAB DESC 

CALLS #6, CREATE_DIR 

MOVL RO, STAT 

BLBS STATUS, 118 

PUSHL_ STATUS 

PUSHAB DESC 

PUSHL # 

PUSHL SBACKUPS CREDIRERR 
CALLS #4, LIBSSIGNAL 

PUSHL fPUT_CH 

CALLS #1, SYSSDASSGN 

cLRL OUfPUT_ CHAN 

BBC #1, QUAL+11, 12 

CMPL status, #1561 

BNEQ 2$ 

PUSHAB DESC 

PUSHL # 

PUSHL #BACKUPS CREDIR 

CALLS #3, LIBSSIGNA 

BBC #4, QUAL+10, 14$ 

cHPB fPUT_ATTBUF+109, #2 
CMPL FOH_O_BSRDATE+4, BAKDATE +4 
BGTRU 13$ 

BNEQ 14$ 

CMPL § COM_O_BSRDATE, BAKDATE 
BLSSU «148 

BISB2 #8, OUTPUT_FLAGS 

movc #0, (SP), BO, #64, INCR_FIB 


MOVL FILE_ID, INCR_FIB+10 
MOVW FILE-ID+4, INTR_FIB+14 


CALLS ' F INCREMENTAL ~SCAN 
BISB2 #128, OUTPUT_FLAGS 
MOVL OUTPUT 

MOVL  FILE_I6, 36¢RO) 

move FILE~1D+4, 40(RO) 


8 eee — = —_ 


Restore @ save set 1B-sep -1 AX-11 Bliss-32 V4.0-742 P 67 
IRPLICIT DIRECTORY = create implicit directory ‘S-eeb-19R6 Stigoce — EBACRUPCEAE RESTORE Boost 29f 1a) 

3; 1 3 1 ZSBTTL ‘IMPLICIT_DIR eC TORY - create implicit directory file’ 

: } 2 ! ROUTINE IMPLICIT DIRECTOR 

3; 1941 1 fee 

3 1308 1! 

3: 194 1 | FUNCTIONAL DESCRIPTION: 

3 19446 5 ii his routine creates a directory when a ‘‘directory not found’’ status 

3 of : is returned from creating a file. 

3 1909 1 ! INPUT PARAMETERS: 

3; 1948 7! NONE 

3 1949 1! 

; 1950 91 1°! IMPLICIT INPUTS: 

3; 1951 3 1! NONE 

3 1326 935 171! 

3; 195 94 1 ! OUTPUT PARAMETERS: 

3; 1954 95 1! NONE 

; 1955 38 1! 

3 bt | 97 1°! IMPLICIT OUTPUTS: 

3; 195 98 1! NONE 

; 1958 99 1! 

3: 1959 00 1! ROUT INE VALUE: 

3; 1960 01 1! uve if the directory was created, false otherwise. 

3: 1961 8 1! 

; 1966 o3 : SIDE overs ts 

3 1964 $8 1! 

3 1332 06 : leo 

3 1969 88 BEGIN 

3; 1968 09 LOCAL 

3 Hh 10 DIR_PROT WORD ! Protection for new directory 

7 19 1 BAKDAT VECTORC2), i Backup date of directory 

3; 1971 \¢ STATUS, ' Status variable 

$ 1378 1 ER, ! Owner U 

3; 197 14 DESC: VECTOR(2); ! Soenrteken for directory 

3 1974 15 

3; 1975 1 

; 1978 : : Assign a channel to the output volume. 

3; 1978 3 pEsceey = = .OUTPUT_NAMCNAMSB_DEV); 

3; 1979 520 DESCCI .OUTPUT-NAMLNAMSL DEV 

: 1980 521 2 STATUS = ASSIGN, o0TPUT "CHANREL (DESC, OUTPUT_CHAN, 0, 0); 

3: 1981 ; ¢ F NOT .STATUS 

3; 19 N 

3: 198 524 BEGIN 

3: 1984 525 SIGNA re ae OPENOUT + STSSK_ERROR, 1, DESC, .STATUS); 

3: 1985 5 § RETURN FALSE; 

3 13 3 END; 

3 1988 5 5 

3; 1989 5 1 The expanded string is of the form dev:(dirl.dir2.dir3Jname.typ;ver. 

3 ba 531 ; We must strip the components following the directory specifi ication. 

; 1998 3 § DesctOy = .OUTPUT_NAMCNAMSL_NAM - .OUTPUT_NAMLNAMSL_DEV); 

A bod ; : DESCL1 . OUTPUT~NAMLNAMSL_DEV 


ave set Sep-1 3 AX-11 Bliss-32 74 
RECTORY = create implicit directory 1G-Sep-1984 99: £3; yi BACKUP.SRCJRES $10R £55301 


: 1995 

; His ‘ pestttinces owner UIC of the created directory according to the output 
3 1999 40 OUNER = -JPI_UIC; 

; OOt 43 IF -QUALCQUAL_O_OWN_ORIG] OR .QUALCQUAL_INCRI 

3 Boe 4 HEN 

; 200 44 BEG 

3 2004 45 OWNER = .OUTPUT ~ATTBUFCFAR =DIR vic); 

3 2005 4g IF “OWNER EQL O- THEN OWN OUTPUT _ATTBUFCFAR_UIC); 
85 2 oe 

3 2008 rh IF .QUALCQUAL_O_OWN_PARE) 

3; 2009 0 THEN 

: Bie : 1 OWNER = 0; 

: g0lg 338 IF, QUALCOUAL_0_OWN_UICJ 

; O14 335 OWNER = .QUALCQUAL_O_OWN_VALU); 

; 319 339 Set up the directory protection 

: 2018 559 2 IF - QUAL CQUAL _INTE) 

: $030 eet MME OEGIN 

: 031 26¢ SYSSSETDFPROT ( DIR_PROT ) 

: 208¢ 363 DIR.PROT = DIR PROT OR 3X"8886" ; 

; : if ELSE DIR_PROT = .OUTPUT_ATTBUFCFAR_DIR_FPRO) ; 
3 2026 56 

3 7 308 ! Create the directory. Since this is an implicit creation, we use the 
3; 2028 38 ! parent ownership, protection, and default version Limit recorded in the 
: : 9 359 ; file attributes. 

> 2031 57 STATUS = CREATE_DIR( 

; O8e 238 DESC 

: $03 re OUNER, 

; $3 376 “OUTPUT red R DIR VERLIM), 

3; 20 57 OUTPUT_RAMCNAMSW 

: ° 379 BAKDATE); 

; 040 3B SDASSGN(CHAN= . QUTPUT _CHAN) ; 

: 3s) 5 § OUTPUT_CHAN = 0; 

{$008 : 

: os ; 5 IF NOT .STATUS 

3 5 HEN 

3 $ BEGIN 

3 : : IGNAL ( 

3 3 BACKUPS_CREDIRERR, 1, DESC, 

3 5 . STATUS); 

3 930 591 RETURN FALSE: 

> 2051 592 END; 


— 


| 
| 
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RECTORY = create implicit directory “sbsteg 90: 24; Mi BACKUP. SRCIRE STORE. B31 age 483 


r 
se 


FRLARRLIA 
ODONAUFS wry 
AAO 
Sset 
Mw 
—POPIPIPIPOPIPIFINITOND 


re 


S Be 


} Log the creation if requested. 
iF, ,QUALCQUAL_LOG] AND .STATUS EQL SS$_CREATED 


SIGNAL ( 
BACKUPS_CREDIR, 1, DESC); 


Ooo 


wn 


BS 


TRUE 
END 


R 


003C 00000 IMPLICIT mt hbo 


Save R2, RS. R4_RS : 3480 
55 000000006 00 9€ 0000 MOVAB LIB$S! Rr§ ; 
34 00000000' FF 9E 000 MOV gt mati : 
. 4 C2 0001 SUBL ; 
5 015¢ ¢4& DO 0001 MOVL Out Put Nan : 3519 
04 AE 39 AO 9A 0001 MOV ZBL ats - oescn : | 
08 AE 44 AO 00 99010 MOVL 68 (RO), DESC +4 : 3520. 
7E 7 90 CLRO + 3521 
0150 C4 OF 0 024 PUSHAB OUTPUT. CHAN : 
10 AE 9F 00028 PUSHAB DESC F | 
000000006 99 94 FB 900 CALLS #4, ASSIGN. OUTPUT _ CHANNEL ; | 
i) 00 MOVL RO. STATUS 3 | 
10 3 E8 999 LBS STATUS, 1$ ; 3522 
DD 000 PUSHL STATUS + 3525) 
08 AF 9F O003A PUSHAB : 
9 DD 000 PUSHL F 
000000006 8F bp 003F PUSHL FRACKUPS, OPENOUT+2 ; 
095 31 00045 BRW 3 
50 015¢ C4 dO 00048 18: MOVL : 3533. 
04 AE 4c Ao 44 AO C3 00040 SUBL3 (RO) MoiRO) DESC : | 
0 AE 44 AO OD 0094 MOVL : 3534. 
5 FECB C4 DO 00059 MOVL se : 3540. 
05 64 G2 EO 0005 BBS ie. “GUA g. $ : 3542 | 
0c FE AG E1 0006 BBC AL +1 ; | 
52 O1FQ §=C4 b 67 2%: MOVL fput _ATTBUF#116, OWNER : 3545 
5 6c BNEQ : 3546 
52 Oipe 42th CO MOVL OUTPUT ATT UF $96. OWNER ; 
02 64 3 €1 3$: BBC QUAL +12, 4$ : 54 
D4 0007 CLAL OueR > 3551. 
04 $4 E1 00079 4$: BBC QUAL #T2 5 S$ > 355 
2 34 AG D0 7D MOVL i : 355 
12 02 AG 1 € 1 5$: BBC QUAL +14, ees : 355 
ig Dp PUSHL : 356 
000000006 00 5 F BA CALL sSyssgerogpaor ; 
6E 8888 i A ‘o BSW ; ier, 2, DIR_PROT : 563 
6E 01F4 C& BO 00098 68: MOV QuTPUT ATTBUF +120, DIR_PROT : 3565 | 
OC AE er 9D $8: PUSHAB BAKDATE : 333 


000000006 99 


3; Routine Size: 
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713 ree Bliss-32 ¥4.0-742 
6 8 
4 


OUTPUT NAM 
T_ATTBOF 
ROT, (SP 


REATE_DIR 
TATUS 


1 
#BACKUPS_CREDIRERR 
+o LIBSSIGNAL 


#1, QUAL+11, 10$ 
STATUS, #1561 
10$ 

DESC 


# 

ACKUPS CREDIR 
#3, L 18S 1GNAL 
#1, R 


ACKUP.SRCJRESTORE .B32; 1 


(SP) 
126, =($P) 


kK 9 
a@ save set a i +428} 4 90:21:13 fare ot tietae v4.0-742 Page 71. 
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ZE_AND_SELECT = initialize FAB and 


S. 


Sep-1984 RESTORE .832;1 (15) 


<SBTTL TMTIAL LE AND_SELECT = initialize FAB and select file’ 


ROUTINE INITIAL 


at 


—O0O° 
SESS 


Oo 
CONAW 


SF 


E“AND-SELECT= 


i FUNCTIONAL DESCRIPTION: 


Oooo 
~~ 


his routine initializes the FAB and executes the file selection for a 
file open. 


INPUT PARAMETERS: 
NONE 


CONOUS Wr 


i 


IMPLICIT INPUTS: 
NONE 


Coooeceo 


OUTPUT PARAMETERS: 
NONE 


ooo 
PAN=oS 


IMPLICIT OUTPUTS: 
NONE 


hee VALUE : 


PDREAREAEARAAAAAAAAAAA AOA AAO 


rue if the file is selected, false otherwise. 


SIDE EFFECTS: 
NONE 


ALAORPORIPUNINUNIINUN 2 es 


OUTPUT_SEL_DESC:VECTOR(2]; ! Descriptor for selection filespec 


! Always select the file during a save verify pass. Thus all files that were 
saved will be verified. 


iF .COM_FLAGSCCOM_VERIFYING] AND .QUALCQUAL_OSAV] 
RETURN TRUE; 


OOONA NEW @§ O OVOVNAUS WA "OO VOOWVOUF WN O 


POARAAAAOAO 
FWA 


oa 
ca? 
—_ 


o 
rs 
wrt 


OOo 
ae 
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! If this is image mode, always s 
! verify operation, the initial f 
: volume restore, select the file 


an 


elect the file, except that for a compare or 
iles are never selected. If this is a single- 
) 


nly if there is a segment on the RVN. 


if .QUALCQUAL_IMAG) 
THEN 
BEGIN 


LOCAL 
P 


; 
; 
: 
; 
: 
; 
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: REF BBLOCK, ' Cursor for placement data 
PLC_END; ! Pointer beyond placement data 


-QUALCQUAL_COMP] AND 
“OUTPUT_ATTBUFCFAR_FID_NMX) EQL 0 AND 
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ave set ib-se p-1984 
AND SELECT = initialize FAB and sele ~Sep-19 


(. ourryt pirouette FID_NUM] LEQU FIDSC_B 


( .OUTP 


BUFCFAR-STRUCLEVB) EQL 


OUTPUT TATTBUFEPAR -FID_NUM) EQL FIDSC 
RETURN FALSE; 


NOT .QUALCQUAL _VOLUJ] 0 
OUTPUT ~ATTBUF CF AR_ FD AVN] EQL .QUALCQUAL_VOLU_VALUE] 


RETURN TRUE; 


PLC = ,ouTPuT PLACEMENT CDSCSA POINTER]; 
PLC_END = .PLO + .OUT ACEMENT eed _LENG 
WHICE .PLC'LSSA .PLC TEN ND DO, 

BEGIN 

LOCAL 

TYPE; 
TYPE = sf PLC) <0,8>; 
PLC = .PLC + 1; 


AX-11 Bliss-32_V4.0-742 
BACKUP. SRCJRESTORE .832; 1 


Be OT f0i28 


ADBLK OR 
-BADLOG) ) 


TH); 


CASE TYPE FROM BSASK_PLC_FID TO BSASK_PLC_PLLBN OF 


CBSASK_PLC_FIDJ: 


IF -PLCCFIDSB RVNI EQL zQUALCQUAL 
-PLC + BSA$S_PLC_FID; 


CBSASK_PLC_COUNT): 


PLT = “PLC + BSA$S_PLC_COUNT; 


CBSASK_PLC_PLACE]: 


PLO = TPLC + BSASS -PLC_PLACE; 


CBSASK PLC. PLLBN): 


TPLC + BSASS -PLC_PLLBN; 


COUTRANGE): 


TES; 


a2 GhAL (eAckys.. INVATTVAL); 
BA aa FALSE; 


END; 
RETURN FALSE; 
END; 


! This is not a 


-VOLU_VALUE] THEN RETURN TRUE; 


save verify pass, and it is not image mode. 
i Never leaters or compare reserved files, except for the MFD 
i in an incremental restore. 
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H 9 
a@ save set 16-Sep-1984 2:21:13 Ax-11 Blis 
12e°AND_SECECT = initialize FAB and sele Sasep-i9Re Siizoice 4 excnop shes 


if 
.OUTPUT_ATTBUF [FAR_FID_NMX] EQL : 
AND [OUTPUT“ATTBUFCFAR~FID"NUM) NEG 
AND .OUTPUT“ATTBUFCFAR@FID"NUM) LEQU 
(IF OUTPUT ATTRUFLFAR STRUCLEVB] EQL 1 THEN 5 ELSE 9) 
AND (NOT .QUALCQUAL“INCR] OR .OUTPUT_ATTBUFLFAR_FID_NUM) NEQ FIDSC_MFD) 


THE 
RETURN FALSE; 


; Initialize the fAB in preparation for the SPARSE. 


OUTPUT_FABCFABSV_MXV) = OUTPUT_FABLFABSV_CIF] = OUTPUT_FABLFABSV_SUP) = FALSE; 
OUTPUT -NAMENAMSB_RSL ; 


S 
sees 


OUTPUT—FABLFABSV_OFP 
OUTPUT _FABCFABSB_ORG 0; 


BEGIN 

OUTPUT_FABLFABSB_DNS) = XCHARCOUNT('C*...];#'); 

OUTPUT~FABLFABSL-DNAJ = UPLIT BYTE('C®...];#'); 

OUTPUT FAB FABSV~SUP] = TRUE; 

ELSE cl 

OUTPUT _FABEFABSB_DNS] = XCHARCOUNT(';#'); 

OUTPUT“FABLFABSL~DNAJ = UPLIT BYTE(':®'): 

IF .QUALCQUAL_NEQV) THEN OUTPUT_FABLFABSV_MXV) = TRUE; 

IF .QUALCQUAL~OVER] THEN OUTPUT~FABLFABSV~CIF] = TRUE: 
QUAL"REPL] THEN OUTPUT“FABLFABSV~SUP] = TRUE: 


IF QUAL 
END; 


! Set the allocation size, and select the contiguous and contiguous-best-try 
: option according *o the saved file characteristics. 


OUTPUT _FABCFABSV_CTG) = OUTPUT_FABLFABSV_CBT) = FALSE; 

IF .OUTPUT_FILECRARCFCHSV_CONTIG) THEN OUTPUT _FABLFABSV_CTG] = TRUE; 
IF .OUTPUT~FILECHARCFCHSV~CONTIGB] THEN OUTPUT FABCFABSV_CBT) = TRUE; 
OUTPUT_FABCFABSL_ALQ) = .OUTPUT_ATTBUFCFAR_FILESIZE); 


AAIAPIPININININIPYAPINIPININIPIPIPIPINPIPIPINPI NIWA AID INI AAI APPIN NIPUPIPIPIPIPUNINPU EILPNPNUPD 
-_" 


! If this is a restore operation, evaluate the input file selection criteria to 
: governing if the file should be restored. If it is a copy operation, the 
! input file selection criteria have already been evaluated. In any case, 
! establish the file specification that selected the file for the use of the 
: wildcard directory routine. 
IF ,QUALCQUAL_ISAV] 
THEN san 

ST USE t -DESC EO) = Tae het ae 

OUTPUT_SEL Pra 1] = UPLIT BYTE('C#)"); 

-QUALCQUAL_INCR) THEN IF NOT SELECT_FILE(OUTPUT_SEL_DESC) THEN RETURN FALSE; 


RESTORE .B32;1 


RESTOR Restore a save set p-1984 AX-11 Bliss-32 V4.0-742 Page 74 
VOe-000 INITIALIZE_AND_SELECT = initialize FAB and sele Ig se0-1984 a BACKUP. SRCJRESTORE 83251 ’ (15) 
: 77 END 

: i ie aaa BEG! 

> 2239 ie QUTPUT SEL _DESCEO }: -BBLOCKCINPUT_QUALCQUAL_EXP -DESC]. DSC$W_LENGTH); 
; 40 f 9 QUTPUT_SELDESCL -BBLOCKEINPUT“QUALLQUAL~EXP~DESCJ, DSCSA~POINTER); 
$ 224 7 . 

; 28 7 § 

3 te f 2 } Initialize the related file name block 

> 226 7 BEGIN 

: <3 7 5 LOCAL 

3 2248 786 NAMBLK : REF BBLOCK , 

3 4 4 RLFBLK : REF BBLOCK ; 

> 2251 791 3.NAMBLK = .OUTPUT FABLFABSL_NAM) ; 

3 2¢ 79 RLFBLK = .NAMBLK L_RLF 

3 225 79 RLFBLKCNAM$B RSL = ,O0TPUT _FILENAME DSC$W_LENGTH); 

> 2254 794 3 RLFBLKCNAMSL~ OUTPUT —F ILENAME LDSC$A~POINTERI; 

; 2255 795 3 WILD LOIRECTORY (OUTPUT USEL_DESC, .RLFBLK );~ 

: $526 fog § END: 

> 2258 798 

3 $23 44 Execute the SPARSE. 

; 261 801 IF NOT SPARSE (FAB=.OUTPUT_FAB) 

; 65 3808 IF .OUTPUT_FABLFABSL_STS] NEQ RMS$_DNF 

3 2264 804 THEN 

: $502 306 FICE. ERROR 

> 2267 3807 4 tir =QUAL COUAL COMP) 

3 2268 808 4 THEN BACKUP$_OPENIN + STS$K ERROR 

3 $69 3308 oursuite BACKUPS OPENOUT + STS$R_ERROR), 

> 2271 3811 ‘OUTPUT-FABLFABSL_STSJ, .OUTPUT_FABLFABSL_STV]); 

3 sf¢ a51g 3 RETURN FALSE; 

3 227 81 END; 

Be WM 

; $78 $313 If this is /INCREMENTAL mode, always select the file. 

; 8 He IF .QUALCQUAL_INCR] THEN RETURN TRUE; 

3 2280 0 

3; 2281 821 ! Reject directory files that are in the save set but were not selected when 
3 Hf 8 § i they were saved. 

Si BE 8 

> 2285 825 OUTPUT ATTBUFCFAR_DIR_STATU s1N Q0OA 

; 386 8 6 T .BBCOCKCOUTPUT~A TTBoF FLFA RIA _STA atus3. D_STAT_DIR_SELJ 

; 88 8 8 RETURN FALSE; 

i $550 380 a ee 

3 2291 1 ' Evaluate the /CONFIRM qualifier, now that the expanded string is known. 
3 2292 3832 ! 


10 
Restore a save set Ip-Se -1984 00:21:13 AX-11 Bliss-32 V4.0-742 
INITIALIZE_AND_SELECT = initialize FAB and sele =300- 138% eae EBACKUP SRC IRESTORE 83201 
3 JF, ,QUALCQUAL_ CONF J AND NOT .QUALCQUAL_IF11) 
95 5 BEGIN 
36 $ LOCAL 
9 FAO_BUFFER: VECTOR 36.BYTEI, 
38 8 FAO-DESC: BBLOCK 
ANS BUFFER: VECTOR(S_ BYTE), 
90 49 ANS~DESC: BBLOCK(84; 
0 Ae FAO_DESC DS¢$W LENGTH] = 256; 
0 4 FAO-DESC(DSCSB~ TYPE, = DSCSK_DTYPE_T; 
04 i FAO-DESCCDSC$B_CLASS] = DSCSK-CLASS-S: 
5 8 FAO-DESCCDSCSA_POINTER] = FAO-BUFFER; 
06 B46 ANS-DESCEDSCSW-LENGTH] = 8; 
0 4 ANS ~DESC DSCSB_DTYPE] = DSCSK_DTYPE_T; 
08 848 ANS~DESC DSC$B-CLASS = DSC$K“CLASS"S: 
09 849 ANS-DESCCDSCS$A_POINTER] = ANS-BUFFER; 
10 P 3850 $F AOC 
11 P 3851 (IF - QUAL CQUAL COMP) 
\¢ Pp 2¢ THEN SDESCRIPTOR('!AD, compare? (Y or N): ') 
1 P 385 ELSE SDESCRIPTOR(''AD, copy? (Y or ND: ')), 
14 P 3854 FAO_DESC, 
15 P 3855 FAO-DESC, 
i$ P 3856 0 QUTEUT MAREN Sh 
1 857 "OUTPUT ~NAMLNAMSL ESA); 
318 858 LIBSGET_COMMAND(ANS DESC, FAO DESC); 
19 859 IF .ANS_BUFFERCO] NEQ %C'y* AND .ANS_BUFFERCO] NEQ %C*y’ THEN RETURN FALSE; 
320 860 END; 
e1 861 
bos 
2 86 ' Note that the file is selected. 
324 864 2 | 
2325 865 2 TRUE 
2326 866 1 END; 
2A 38 5D 2€ 2€ 2€ 2A SB O100B P.AAE: ASCII \C*...):*\ 
gh B 101 wAAF: .ASCIT \se\ 
5D 2A 58 01015 P.AAG: ASCII \f*I\ 
28 20 3F 65 72 61 70 $0 6F 63 30 Hs 44 41 ¢1 1018 P.AAL: <ASCII \!AD, compare? (Y or N): \ 
20 3A 29 4E 20 72 20 9 010 
0000018 01030 P.AAH: .LONG 24 
0000000" 01034 -ADDRESS P.AAI 
6F 20 59 28 20 3F 79 70 6F 63 20 36 41 21 01 8 P.AAK: ASCII \!AD, copy? (Y or N): \ 
20 3A 29 4E 20 72 0104 
104D .BLKB 
0000015 01050 P.AAJ: .LONG 21 
0000000" 01054 “ADDRESS P.AAK 
.EXTRN SYSSPARSE 
003C 00000 INITIALIZE _AND_SELECT: 
«WORD ~ Save R2,R3,R4,R5 
55 AE AF QE 00002 MOVAB P.AAE, RS 
34 00000000" EF 9€ 00006 MOVAB Qual +4 R4 
£ FEEO CE 9€ 0000D MOVAB -288(SP), SP 


Pa 75. 
9°15) 


3606 


Page 76 
» iss-32 V4 0-742 (15) 
~ 1§-f00-1984 24:86:38 UBAcKUP*SneSnesrORE esos ; 3642 
bi idaty -Sep- pe 2$ ; 
e set ize FAB and sele COM_FLAGS, : 
f STOR INLTIALIZE AND, SELECT = initial 03 £1 00012 Sia Quasi : 3651 
/WOe~000 08 72 AG 07 ag i i BGEO $ ia ore : 362) 
1$: } QUAL+10, : 
ee : St 
ee th) et Ey pee a 
0105 $$ %3 dose tneu OO sir, eaten a 3663 
B EQu F+109, : 
05 = 0100 fk 1B 5 Ouse TPUT_ATTBU "4 ; 3664 
02 O1ED f3 12 A ee OUTPUT_ATTBUF +80, ; 3670 
¢ QL 86 6$ | : | 
es) Ce ae iw 
AG - 
dS 06 4 a 1$ MENT#+4, PLC : 
pom fee ier ane we 
N ° 
sf GIES ge Be Goss CRP? BEES PLESEND i 3683 
5 2§ D1 5C 4$: BGEQU c)4 TPE é 5 
5 : it zt MOVZBL Pt i, é 
aS 9 6 CASE yn : 
50 50 CF 38 ss, aaa HE * 5 : 
03 005) 0018 98-58; - ; 3706 
0026 10$- NVATTVAL * 3707. 
a {Pp gaaTe ast AMAR tal we 
000000006 ef FB 00076 2 BRW QUAL +79 : 3692 
00 1 0007D 6$: 4(PLC), : | 
Soneeeees . he 31 90080 98: seal is : 3696 
" : be 17 Boose ADDL2 a, PLC : 3699 
OF $9 $0089 BS: ADD PLC : 370 
52 SE tt BosRe os: ADDL2 #6, : 367 | 
52 co 11 90081 ADDL2 #10, PLC : 5721 
52 Oh 9 0096 pe: AG OUTPUT_ATTBUF +85 : 3722 
os ’ ie og ist QUTPUT_ATTBUF +80 ; 3724 
eh if 73 B00Ks CMPB TPUT_ATTBUF +109, 41 : 
OOA4 12$ : 
01 O1ED&4_ 91 000A MOVL #5. RO 
AB Bra «138 0. RO : 
ag ; i of 188:  Credv #0, #16, OUTPUT_ATTBUF +80, ; 3725 
50 0 + 008 138: Beray 148 QUAL+10, 6$ ‘ 
100 C4 “ tet oooBe Pau QUPUT-ATTBUF 80, ™ ; 3732 
50 0 02 Ae 1D0 ee 8 ef BNEQ Be FAB, R1 ‘ 
BC 0% 0 8S Och 148: Ove bu “R2 
orse C4 0 O00C8 148: MOVE, QUTPUT 
BO 


r-- 


10 


Restore a save set 1-8 -1 2:21:13 AX-11 Bliss-32 v4.0-74 
INITIALIZE_AND_SELECT = initialize FAB and sele ~30071 38% eee BACKUP’ SREIRESTORE Boe 
020000 8F CA 00001 BICL2 #33554438, (R2) 
$5 84 p C4 0 00008 MOVL TPUT_NAM, 6 
A D cLRE (RO) 
AO 96 OO0E LRB 1(RO) 
02 A2 20 BF AB OO0DE BISw2 68194 2(R2) 
1D =6Al «(946 OO0E LRB Ss 29¢R1$ 
OA 2 AG 04 1 000€ C a, YAL +10, 15$ 
Al § 0 O00F MOVE #8. 53(R1) 
0 al : ‘ F MOVAB P.AAE, 48(R1) 
F F BRB 18$ 
35 Al 02 90 000FB 15$ MOVE #2, 53(R1) 
9 Al 08 A FF MOVAB P.AAF, 48(R1 
03 03 AG : BBC , QUAL411, 16$ 
62 : 1 B1SB2 2) 
0% 03 AG 4 1 ¢ 16$: BBC a4. QUAL +11, 17$ 
A2 2 11 BISB2 #2. 3(R2) 
06 A O15 17$: TSTB QuAL+ 2 
3 18 0011 BGEQ 198 
62 4 O11A 18$: BISB2 #4, (R2) 
02 =A 0 8A 00110 19$: B1CB2 #48, 2(R2) 
0166 64 95 00121 TSTB TPUT_FILECHAR 
4 18 01 3 BGEQ $ 
02 A2 10 8 91 BISB2 #16, 2(R2) 
04 O1ES C4 05 et 128 208: BBC #3 TPUT_FILECHAR, 21$ 
02 A2 0 0131 B1SB2 #32 
10 Al Ope} C4 0135 21$: § MOVL TPuT AT TBUF +92, 16(R1) 
1B 07 = AG Be E1 00138 BRC #5, QUAL+15, 22 
F8 AD 03 00 00140 MOVL #3, OUTPUT SEL_DESC 
FC AD OA AS 44 00144 MOVAB P.AAG, OUTPUT SEL_DESC +4 
1E 0 AG 04 E 00149 BBS #4, QUAL+10, 23$ 
FB AD SF 0014E PUSHAB oufpur SEL_DESC 
FDS CF 1 Fe 151 CALLS #1, secect FILE 
13 9 F 01 § BLBS $ 
1 001 BRB 26$ 
0 0000 ¢4 DO 00158 22$:  mMOVL  =INPUT_QUAL, RO 
0 08 c0 01 ADDL2 48, R 
FB OAD 60 ¢ 16 MOVZwL (RO), OUTPUT SEL_DESC 
FC AD 94 AO 00 0016 MOVL 4 (ROS, OUTPUT SEC_DESC+4 
30 015¢ C4 9 O16¢ 23$:  MOVL ouTP t_FAB, RO 
0 8 AO 00 00171 MOVL 40(RO)> NAMBLK 
50 0 Ao b0 0175 MOVL 16(NAMBLK), RLFBLK 
03 AO 0180 C4 0179 MOVE § OUTPUT_FILENAME, 3(RLFBLK) 
4 Ao 0184 ca DO 0017F MOVL  OUTPUT“FILENAME+4, 4(RLFBLK) 
0 bb 1 5 PUSHL RLFBLK 
F8 AD 9F 01 PUSHAB OUTPUT _SEL_DESC 
000000006 00 02 FB OO1BA CALLS #2, WICD DIRECTORY 
015¢ C4 DD 00191 PUSHL 
000000006 00 1 FB 00195 CALLS #1, SYSSPARSE 
0 0 €8 0019¢ BLES) SséR 
0 015¢ C& 00 0019F MOVL fPUT_FAB RO 
0001CO4A = BF 08 Ad D1 1A4 CMPL (RO), "#11476 
21 13 OO1AC BEQL ? 
7E 08 Ag 7) OO1A mOVG (RO), =(SP) 
5 1B PUSHL R 
4 1 TSTB QUAL+8 
8 186 BGEQ 4 
000000006 8F DD 001 PUSHL &#BASKUPS$_OPENIN2 


SS 


10 
ST Restore a save set ip-fe -1 21:13 AX-11 Bliss-32 v4.0-742 
WO 000 INITIALIZE AND. SE ECT - initialize FAB and sele ~307 138% a ey YBACKUP. SRe RESTORE .832;1 
11 18 pre 25$ 
000000006 8F DD 001C6 248: PU HL #BACKUPS$_OPENOUT+2 
000000006 00 4 re 1€6 38: CALL 4 FILE-ERROR 
75 02 AG 04 1CF $3: S #4, QUAL+10, 32$ 
O1FB i ; 104 isis {put ATTBUF 23 
£4 O1FB C4 ° f 1DA BBC #1 oyTPyT ATTBUF +123, 31S 
65 01 Ad E9 OO1EO 288: BLBC QUAL+ 
60 07 «Aa 04 EO OO1E4 S 4 QuAt $ 
10 AE 010€019 F 5 1€9 MOVL  #17694976, FAO DESC 
14 AE AE : 1F1 MOVAB AQ BUF gr. FAO DESC+4 
6E 010E00 8F g 176 MOVL #1769472 S$ BESC 
04 AF 08 AE i 1F MOVAB ANS BUFFER, ANS_DES 
5 0160 C4 D MOVL TPUT_NAM, 
oC A pp 0 PUSHL  12(RO) 
7E AO 9A O020A MOVZBL 71(RO), =(SP) 
18 AE 9F 00 OF PUSHAB FAO_DESC 
1C AE 9F 0021 PUSHAB FAO DESC 
64 95 00214 TSTB Quac+ 
06 18 00 18 BGEQ 29S 
50 25 A 3 021 MOV P.AAH, RO 
04 11 O021C BRB 30$ 
50 45 AS 9E 00 1 298: v P.AAJ, RO 
50 oD 00 O$:  PUSHL RO 
000000006 00 05 FB 00224 CALLS #5, SYS$FAO 
10 AE OF 90 B PUSHAB FAQ_DESC 
04 AE 9F 00226 PUSHAB ANS~DESC 
000000006 00 02 FB 99 1 CALLS #2, LIBSGET_COMMAND 
59 oF 08 AE 9 0 CAPS ANS BUFFER, #89 
79 =s«BF 08 AE 91 F C ANS _BUFFER, #121 
Q 13 00244 BEQL 328 
0 D4 00246 318 CLRAL 
04 00248 RET 
50 01 00 00 49 32$ MOVL #1, RO 
04 0024¢ RET 


3; Routine Size: 589 bytes, Routine Base: CODE + 1058 
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$T Restore a save 3 AX=11 Bliss-32 V4.0-742 P 79 
We 005 SELECT INCREMENTAL = apply incremental selectio rg-Fep-1984 9: a 3 BACKUP. SRC JRESTORE .832;1 29 16) 
ZSBTTL "SELECT_INCREMENTAL = apply incremental selection criteria’ 
ROUTINE SELECT-INCREMENTAL= 


* 
+ 


wn 


i FUNCTIONAL DESCRIPTION: 
This routine performs file selection for a /INCREMENTAL mode restore. 


w 


i INPUT PARAMETERS: 
i NONE 


i IMPLICIT INPUTS: 
; OUTPUT _NAM - Pointer to name block, on which a SPARSE has been 
executed. 


i IMPLICIT OUTPUTS: 
i NONE 


i ROUT INE VALUE : 


WN OVO VWOUFWN0O0W 


' 
1 
' 
' 
' 
' 
' 
' 
! 
' 
' 
4 
i QUTPUT PARAMETERS: 
i NONE 
' 
1 
' 
' 
' 
' 
' 
' 
i 
! 
‘ 


: : rue if and only if the file passes the /INCREMENTAL restore tests. 
5 i SIDE EFFECTS: 
5 NONE 
54 
ri os 
7 
59 FIB_DESC: VECTOR ! Descriptor for FIB 
FIB? BBLOCK ? tesc _LENGTH], i FIB 
1 900 ATR_DESC: BBLOCK(12) ! Attribute descriptor 
¢ BAKBATE: VOLATI 54 vEcTor(2), i Backup date 
36 i FNA_DESC: VECTOR ! Filename descripto 
90 STATUS, ' General status cartebes 

5 SB: VECTORL4 WORD); ! 1/0 status block 


: If the parent directory does not exist, the file is restored. 
if {OUTPUT _NAMLNAMSW_D1D_NUMJ EQL 0 
RETURN TRUE; 


CS 


: Assign a channel to the device. 


ENA ~pesttt) = OUTPUT Ns DEVI: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
BEGIN 
LOCAL 


ODOOOOOOVOVONOOOVOO 
ROPRNNY — SS SO OS os 


WO OOO uewn oO 


ENA DESCL1) = .OUTPUT-NAM 
STA = As SS1GH_ OUTPUT_CHANNEL (FNA_ vise. OUTPUT_CHAN, 0, 0); 
: we 
SIGNAL (BACKUPS. OPENOUT + STSS$K_ERROR, 1, FNA_DESC, .STATUS); 
RETURN FALSE; 


$3 
a 


10 
store a save set IBege -1 2:21:13 AX-11 Bliss-32 V4.0-742 Pa 80 
LECT_INCREMENTAL = apply incremental selectio 30071 38e O:f6:88 EBAckuP.SRe RESTORE .632;1 9° 16) 
924 END; 
925 
: ; 5 Access the parent directory to obtain the backup date. 
90 9 § FIB_DESCLO) = FIBSC_LENGTH; 
91 9 FIB DESCL1) = F1B; 
38 \) CHSPILL( -_FIBSC_LENGTH, FIB); 
9 ‘"] ¢ FIBCFIBSW_FID_NUA) = .OUTPUT_NAMCNAMSW_DID_NUM); 
94 9 FIBLFIBSW_FID_ SEQ] = .OUTPUT_NAMLNAMSW_DID_ SEQ); 
95 9 FIBLFIBSW FID RVN] = .OUTPUT NAMLNAMSW_DID_RVNJ; 
9 9 ATR_DESCL2,0,.16,0] = ATRSC ree 3 
39 938 ATR-bESCtS 0.39.0) = Be 
,3¢,0J = 0; 
400 p 39 3 STATUS = $010W( 
401 P 3940 FUNC=10$_ACCESS, 
40¢ P 3941 HAN=.OUTPUT_CHAN, 
40 p v4] 10S8=10S8 
404 P 394 Pi=F1B_DESC 
405 944 PS=ATR-DESC); 
406 945 2 IF .STATUS THEN STATUS = .J0SBC0); 
40 4 | If NOT .STATUS 
408 3 THEN GIN 
410 38 FILE ERROR(BACKUPS _READATTR, .OUTPUT_FAB, .STATUS); 
411 950 SDASSGN(CHAN=.OUTPOT_CHAN) ; 
els 951 OUTPUT_CHAN = 0; 
41 936 RETURN’ FALSE; 
418 984 _— 
41 955 
419 es ! If the creation date of the save set is later than the backup date of the 
218 Bee } parent directory, the file is restored. 
420 959 
421 960 -COM_O psnoaretiy GTRU .BAKDATEL1) OR 
: ‘ sg THEN meen ATEL ] EQL .BAKDATEL1] AND .COM_O_BSRDATECO] GTRU .BAKDATE(O)) 
4246 308 BEGIN 
425 964 That tee a ee 
4 6 965 OUTPUT_CHAN = 0; 
4 sg RETURN TRUE; 
? 3 368 END; 
4 
431 390 ! The creation date of the save set is equal to or earlier than the backup date 
"i § 4a : of the parent directory. Attempt to look up the file in the directory. 
4 398 CHSFILL(O, FIBSC_LENGTH, F1B); 
435 974 FIBCFIBSW_DID_NUA) = .OUTPUT_NAMCNAMSW_DID_NUM); 
: are $ FIBtelene-pibcRiad = -QureuT-Munbuante-B18 Road 
Ss 3 
4 339 FMA besctog =~ OUTPUT_ JNA 3 -OOTPUT_NAMCNAMSB_TYPE] + ,OUTPUT_NAMCNAMS$B_VER); 
4 id | FNA_ DESC = ,OUTPUT_NAMLNAMSL _NAME J; 
440 Pp 39 STATUS = 0 tet 
441 P 3980 FUNC=10$_ACCESS, 
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REST Restore a save set 16-Sep-1 2:21:13 AX-11 Bliss-32 V4.0-742 
yO. -008 SELECT INCREMENTAL = apply incremental selectio ‘Saseo-1oee Siikerse — LencnueesaeSncerone Boos 
+ 266 P 3981 CHAN=,QUTPUT_CHAN, 
3 266 Pp 39 j 1OSB= ose 
+ 2664 Pp 39 Pi=F1B_DESC 
3 2445 984 P2=FNA_DESCS; 
> 2bm 985 2 IF .STATUS "THEN STATUS = .JOSBCO); 
: $e 389 
Py ; no rectory entry exists for the e, the e 1s not restored. 

469 98 ‘if di i f he fil he file i d 
+ 2451 990 IF .STATUS EQL SS$_NOSUCHF ILE 
: 26 3 991 THEN 
: 26 99 BEGIN 
: 2654 99 DASSGN(CHANs .QUTPUT _CHAN) ; 
: 2455 OUTPUT_CHAN = 0; 
: 496 995 RETURN FALSE; 
: 245 996 END; 
ot ct 
: 2460 999 2 IF NOT .STATUS 
$e coo) Naecin 
: rhe £008 FILE ERROR(BACKUPS OPENOUT + STSSK_ERROR, .OUTPUT_FAB, .STATUS); 
3 2464 400 SDASSGN(CHAN=.OUTPOT_CHAN) ; 
: 2665 4004 OUTPUT_CHAN = 0; 
3 reg | 4005 RETURN FALSE; 
+ 266 4006 END; 
: $288 1008 
3 veh rts : If an entry pointing to an all-ones file ID exists, the file is restored. 
: 247 4011 2 iF 
+ 267 4012 -FIBCFIBSW_FID_NUM) EQL 65535 AND 
+ 26476 401 -FIBCFIBSW-FID-SEQ) EQL 65535 AND 
: 2475 4014 -F IBLF IBSB-FID-NMX] EQL 255 
: sey tore $Y Meccin 
: 2678 tor9 SDASSGN(CHAN=.QUTPUT_CHAN) ; 
: 2679 4018 OUTPUT_CHAN = 0; 
: 26 401 RETURN” TRUE; 
3: 2481 4020 END; 
+ 508s 4052 
: 4 40 ; ' Access the file to obtain the bockue date. If this fails with 
3; 2485 rt 4 ' a NOSUCHFILE error, we have a dangling directory entry, which 
: m1 $8 5 } is always selected. 
: 26 40 $ FIBCFIBSW_DID_NUM) = FIBCFIBSW_DID_SEQ) = FIBCFIBSW_DID_RVN) = 0; 
: re P 4 3 STATUS = $0100¢ 
: 26 P 4 FUNC=10$_ACCESS 
> 2691 P 4 CHAN=.OUTPUT_CHAN, 
> 269 P 4031 10SB=10SB 
+ 249 P 4 ; Pi=F 1B DESC 
> 2494 4 PS=ATR-DESC); 
Py ° =. 3 

495 4 4 IF .STATUS"THEN STATUS = .JOSBLO) 
: 499 SDASSGN(CHAN=.QUTPUT_CHAN) ; 
: 2698 40 OUTPUT_CHAN = 0; 
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Restore a save set Igege p-1984 AX-11 Bliss-32 V4.0-742 
SELECT_INCREMENTAL = apply incremental selectio mer ¢ 99: £4; i BACKUP. SRC RESTO RE.832;1 
4 if «STATUS EQL SSS_NOSUCHF ILE 
¢ HEN RETURN TRUE; 
4 if NOT .STATUS 
? ¢ =, 
i niin AERROR Ceacurs -READATTR, .OUTPUT_FAB, .STATUS); 
4 
iB) 
4 ‘3 ‘if the file's backup date is nenneere and equal to or earlier than the 
405 i creation date of the save set, the file is restored. Otherwise, the file 
: 23 is not restored. 
toes if 
4054 : ~BAKDATE 13 ts mee yt NEQ 0 A 
4055 BAKDAT COM_O_BSRD DATECI On 
$828 " CBREDATE year Yom, O-BSRDATEC1 -BAKDATECO] LEQU .COM_O_BSRDATECO]) 
4058 TRUE 
4059 ELSE 
4060 FALSE 
4061 END; 
OFFC 00000 SELECT_INCREMENTAL: 
-WORD Save R2,R3,R4,R5 R6, +f R8,R9,R10,R11 
5B 000000006 BF 00 90002 hove WBACKUPS$_READATTR 
5A 900000006 F DO 900 MOVL  #BACKUPS “DPENQUI*S, RI 
23 BS 00006 BF MOVAB SYSSDASSGN 
8 000000006 ROVAS SYSSaL0N, AB 
57 0000000 MOVAB OUTPUT_CHAN, R7 
3 MOVAB -108(SP), SP 
MOVL OUTPUT _NAM, RO 
TSTwW 42(R0) 
BNEQ 1$ 
BRwW 198 
08 AE MOVZBL 5 ho tf FNA_DESC 
0c E MOVL 68(RO), FNA_DESC+4 
CLRQ al 
PUSHL R 
SH FNA_DESC 
000000006 90 CALLS #4, ASSIGN_OUTPUT_CHANNEL 
$ VL RO Se ATs 
1 BLBS STATUS, 2$ 
PUSHL STATUS 
PUSHAB FNA_DESC 
PUSHL no 
000000006 00 CALLS #4, LIBSSIGNAL 
BR 17$ 


MOVZBL #64, 
MOVAB 


64 FIB_DESC 
68 AE FIB, FIB-DESC+4 
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08 
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50 C 

AE £ 
AE 

AE 001400 

AE 1 
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1¢ 

78 

20 
68 
56 
06 
56 
09 

08 

AE FF4O 

AE FF40 

AE FF3C 
6E 

24 

50 C 

AE A 

AE E 
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2 C 
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00 
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: 
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MOVCS 


ere Bliss-32 V4.0-742 
BACKUP. SRC JRESTORE .832;1 


#0, (SP), #0, #64, FIB 
AT 


TPUT_NAM, RO 
42(RO)> FIB+4 
4 gr ) 

z 

BAKDA 


F16+8 
10728 
R_DE 
P 


» ATR 
re ATR_DES 
st+a 


r 
OUTPUT_CHAN 
#i2, SYS$Ql0W 
RO, STAT 
STATUS 

1088, STATUS 
§ 4$ 


8$ 

COM_O_BSRDATE+4, BAKDATE+4 
COM_O_BSRDATE+4, BAKDATE+4 
COM_O_BSRDATE, BAKDATE 


11$ 
#0, (SP), #0, #64, FIB 


TPUT_NAM, RO 
ett hee F18+10 
46(RO), FIB+14 
59(RO). R1 
(RO). R2 


~-oco~~rOowor© 


1 

), 

1, FNA_DE 
», F 


mn 
nm 
Ooo 


ft 
OUTPUT_CHAN 
=(SP) 

#12, SYS$Q10W 


RO, STATUS 
STATUS, R 


K 10 
16-Sep-1984 00:21: AX-11 Bliss-32 V4.0 
al - apply incremental selectio eae 90 eb 8 BACKUP. SRCIRESTORE. 
6 3¢ 0012F MOVZ2WL 10SB, STAT 
00000910 af s i g 7$: CHPL ATUS, #3330 
17 36 £8 00138 BLBS STATUS, 10$ 
3 DD 001 PUSHL STATUS 
08 A7 DD 0014 PUSHL OUTPUT_FAB 
5A DD 0014 PUSHL 
000000006 00 03 FB 0014 gs: CALLS #3, FILE_ERROR 
é DD 0014C 9S: PUSHL oufeut CRAN 
69 j FB 145 CALLS #1, SYSSDASSGN 
67 D4 001 CLAL UTPUT_CHAN 
6A 11 001 ; BRB 4$ 
FFFF SF 28 AE B1 00155 108: CMPW FIB+4, #65535 
18 12 0138 BNEQ 1 
FFFF SF 2A Ar B1 0015 CMPW 0 s«FIB+6, #65535 
1 if 016 NEQ 12$ 
FF OF 2D AE 91 0016 MPB OF 1B#9, #255 
12 0016A BNEQ 
67 DD 0016C 11$:  PUSHL OUTPUT_CHAN 
69 01 FB 0016E CALLS #1, SYSSDASSGN 
67 04 00171 CLAL © OUTPUT_CHAN 
6c 11 173 BRB 16 
30 AE 04 00175 128:  CLRL  FIB+1 
2E AE 84 00178 CLRW SF 1B+1 
7E 04 00178 CLRL ss = (SP) 
1¢ «AE 9F 0017D PUSHAB ATR_DESC 
7E 7C 00180 CLRQ = = (SP) 
7E D4 00182 CLRL = = (SP) 
78 «AE OOF 00184 PUSHAB FIB_DESC 
7E 7C 00187 CLRQ. = (SP) 
20 AE OOF 00189 PUSHAB 10SB 
32 DD 0018C PUSHL #50 
67 DD 0018 PUSHL  OUTPUT_CHAN 
43 D4 001 CLRL sig) 
68 oc FB 0019¢ CALLS #12, SYS$QI0W 
56 50 D0 0019 MOVL RO, STATUS 
03 56 5 0198 BLBC STATUS, 13$ 
56 6E C 00198 MOVZWL 10SB, STATUS 
67 DD 0019E 13$:  PUSHL OUTPUT CHAN 
69 01 FB OO1A CALLS #1, SYSSDASSGN 
67 D4 OO1A CLAL OUTPUT_CHAN 
00000910 8F 36 D1 001A5 CMPL  STATUS> #2320 
13 OO1AC BEQL 
10 36 £3 Ae BLBS STATUS, 15$ 
$ DD 0018 PUSHL  STATU 
08 A? DD 00183 PUSHL OUTPUT_FAB 
38 DD 186 PUSHL 
000000006 00 g re 18 CALLS #3, FILE_ERROR 
4 11 OO1BF 14$: BRB 
50 10 AE 14 AE £9 1€1 15$:  BISL3 BAKDATE+4, BAKDATE, RO 
1¢ 13 001C7 BEQL = ‘17 
FF4O C7? 14 Ar di 001C9 CHL BAKDATE+4, COM_O_BSRDATE+4 
10 1F OOICE BLSSU 
FF4O 867 14 AE p} O1D1 CPL AKDATE+4, COM_O_BSRDATE +4 
FF3C OC? 10 AF of 109 CMPL § BAKDATE, COM_O_BSRDATE 
04 1A 001DF BGTRU 17$ 
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VO2-008 SECECT INCREMENTAL = apply incremental selectio ee O713ke 94 :c0: i BACKUP SRESRESTORE B5os1 


50 " F if} 168: MOVL 1, RO 
50 Be Bie 17$: CLRL RO 
1E RET 


; Routine Size: 488 bytes, Routine Base: CODE + oad 
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REST Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 P 6 
yo2-000 INCREMENTAL_DIRECTORY = perform incremental dir g7308-13 4 ee BACKUP. SRCIRESTORE B32: 1 age 8S 
; 4 rho | 1 ZSBTTL "INCREMENTAL_DIRECTORY = pectors incremental directory scan’ 

3 5 eRe? : ROUTINE INCREMENTAL_DIRECTORY(LENGTH,ADDRESS): NOVALUE= 

$ 8 4065 1 !+4+¢ 

3 8 4 96 1! 

3; 2529 4 1 ! FUNCTIONAL DESCRIPTION: 

3; 25 rt 3 } : This routine executes the special /INCREMENTAL directory scan. 

3 H ¢ 4070 1 ! INPUT PARAMETERS: 

3 29 4071 1! LENGTH = Length and address of directory segment. 

3; 25 : ret ! } ADDRESS - 

; 3% 4074 1 | IMPLICIT INPUTS: 
3; 2537 4075 1! NONE 
3; 2538 4076 1! 

3; 2539 407 1 ! OUTPUT PARAMETERS: | 
3 2540 4078 1! NONE 
3 2541 4079 1! 
3 2¢6 4080 1 ! IMPLICIT OUTPUTS: 

3: 254 4081 1! NONE | 
3 2544 4082 1! 
; 2545 4083 1 ! ROUTINE VALUE: 
3 2546 4084 1! NONE 
3 2547 4085 1! 
3; 2548 4086 1 ! SIDE EFFECTS: 
3 2549 4087 1! NONE 
3; 2550 4088 1! 

3 2551 4089 1 !-- 

3 226 4090 1 

3; 255 4091 BEGIN 

3 2554 409 LOCAL : 

: 2555 409 REC: REF BBLOCK, ! Pointer to directory record 
3 228 4094 NEXT_BLOCK; ! Pointer to next directory block 
3; 255 4095 
3; 2558 4096 

3; 2559 4097 ! Initialize for the first block. | 
3; 2560 4098 ! 
3; 2561 4099 REC = .ADDRESS; 
> 256 4100 2 NEXT_BLOCK = .REC + 512; 
3; 256 4101 

3 2564 oie 
; 2565 410 ' Loop over all blocks. 

3 2566 4104 ! 

3 2567 $198 WHILE .REC LSSA .ADDRESS + .LENGTH DO 

3; 2568 4106 EG] 

: 297 4107 IF .RECCDIRS$W_SIZE) EQL 65535 

3; 2570 $198 THEN 

3 2571 4109 4 BEGIN 

3 276 4110 4 ! 

3 257 4111 4 ' End of this block. Advance to next and resume. 

3 2574 tii¢ 4 ! 

3 2575 4115 4 REC = .NEXT_BLOCK; 

3 378 4114 4 NEXT_BLOCK = .REC + 512; 

3; 257 4115 4 END 

; 2/8 2138 3 S 

3; 257 4117 4 BEGIN 

3; 2580 4118 4 LOCAL 
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N 
Restore a save set Igrgenn3 4 OO aids eee Bliss-32 V4.0-742 Page 4 
INCREMENTAL DIRECTORY = perform incremental dir 5-Sep-1984 21:46:26 BACKUP .SRCJRESTORE .832;1 (17) 
4119 4 NEXT_RECORD, ! Pointer to next record 
2 y ? VER: REF BBLOCK; ! Pointer to version entry 
41 4 
41 _ 4 ! Point to where next record should start. Make some validity tests 
re ¢ ? on the entry we are looking at. 
41 $ 4 NEXT_RECORD = .RECCDIRSW_SIZE] + .REC + 2; 
41 4 IF 
4128 2 BEGIN 
4129 IF 
4150 »NEXT_ RECORD GEQA .NEXT_BLOCK OR ! Entry within block? 
4131 RECEDIRGH 3126) OR ' Length even? 
2 § nen” DIR$W_SIZEJ] LSSU DIRSC_LENGTH + DIRSC_VERSION ! Long enough? 
4134 : RUE 
4135 ELSE 
41 § 6 BEGIN 
$13 6 VER = (.REC_+ DIRSC_LENGTH + .RECCDIRSB_NAMECOUNT] + 1) AND NOT 1; 
4138 6 -RECCDIRSV_TYPE) NEG DIRSC_FID O : Proper type code? 
4139 6 -VER GEQA .NEXT_BLOCK = DIRSC_VERSION ! Version entry within block? 
4140 g END 
4141 END 
rhb | 4& THEN 
4143 5 BEGIN 
4144 5 
tbr | : Directory format error. Report it and quit. 
4147 5 FILE _ERROR(BACKUPS_INCBADDIR, .OUTPUT_FAB); 
4148 5 RETURN; 
4149 4 END; 
4150 4 
4151 4 
$136 ? Loop over all version entries. 
4154 4 WHILE .VER LSSA .NEXT_RECORD DO 
4155 5 BEGIN 
4156 5 WHILE 
4157 6 BEGIN 
4158 6 IF .INCR_RSS EQL 0 
4159 6 THE 
4160 6 FALSE 
4161 | ELSE 
2196 BEGIN 
4165 7 CHSLSS( 
4164 7 -INCR_NTS, INCR_RSA 
4165 7 -RECCBIRSB_NAMECOUNT), RECCDIRST_NAME]) OR 
4166 (CHSEQL ( 
4167 -INCR_NTS, INCR_RSA 
4168 -RECCBIRSB_NAMECOUNT], RECCDIRST_NAME]) AND 
ret -INCR_VER GTRU .VERCDIRSW_VERSION)) 
4170 END 
4171 g END 
$176 dO 
4173 6 EGIN 
4174 6 INCREMENTAL_DELETE(); 
4175 6 INCREMENTAL_SCAN(); 
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et 
CTORY = perform incremental dir ig-te et 7 99: 28; i} BACKUP. SRCJRESTORE. 852, 1 


3 AX-11 Bliss-32 V4.0-7 

END; 
INCR_RSS NEQ 0 
CHSEGL ( 

.INCR_NTS, IN NCR 

~RECCDIRSB_N count, RECCOIRST NAME) AND 
-INCR_VER EQL “VER DIRSW_VERSION 
INCREMENTAL_SCAN() t 
BEGIN 
LOCAL 

FIB_DESC: VECTORC2) 

FIB: BBLOCKCFIB$C_LENGTH), 

FNA_DESC: VECTOR[2 

FNA? VECTORCDIRSS_NAME+6, BYTE), 

RSA_DESC: VECTORE2], 

RSA? VECTORENAMSC_MAXRSS BYTE], 


STATUS, 
10SB: VECTORC4 ,WORD); 


nstruct the name, type, and version string from the 
formation in the directory entry. 


! Co 

! in 

' 
FNA_DES ct0) s 2 pies NAME + 6; 
FNA_DESC 

$F ADC 

SoeScRUPTORC* AC: 10M ), 


! Construct a ‘resultant string’’ by concatenating the device 
i and director specification, which is in the name block 
expanded string, with the tile name string. 


RSA -PESCEO] = NAMSC_MAXRSS; 
RSA “DESCE1] = RSA; 


BOSSES IC TORC' 10D 288"? 


READE: 
OUTPUT NAMCNAMSB_ESL1, .OUTPUT_NAMCNAMSL_ESAJ, 


or and enter the directory entry. 
1BSC LENGTH; 
fe! FIB); 


| 
| 
| 
| 
| 


vuvvD 
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i tS > | 
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Restore a save se Igge :13 AX-11 Bliss-32 V4.0- P 9 
INCREMENTAL _DIREC CTORY - perform incremental dir eH Ti ie 3 3 BACKUP. Src RESTORE. Bsoe1 ae 9} 
4233 6 FIB F1BsB _FID_NMX) = 1; 

6234 6 F IBLF IBSW~ =P 1D-NUR = ,INCR_FIBCFIB$W_DID_NUM); 

4235 6 FIB Hea DID-SEQ) = .INCR-FIBCFIBS$W-DID-SEQ); 

4 6 FIBLFIBSW-DID-RVN) = .INCR-F IBLF IBSWDID-RVNJ; 

4 6 STATUS = $0100 

4 8 6 Yoncelo CREATE 

4 5 CHAN=. OUTPUT _CHAN, 

4240 6 10S8=10S8 

4261 Pl=F 1B DESC 

4 4g 6 P2=FNA_DESCS; 

4243 6 IF .STATUS"THEN STATUS = .10S8(0); 

4 s 6 IF NOT . . STATUS 

4 46 SIGNAL (BACKUPS_INCENTERR, 1, RSA_DESC, .STATUS); 
426 END; 

ise 

: 29 Advance to next version entry. 

4 3 VER = .VER + DIRSC_VERSION; 

4253 4% END; 

t5e¢ 

: 2$ ? Advance to next directory record. 

‘ 38 4 REC = .NEXT_RECORD; 

4260 3 END; 

4261 1 END; 


57 55 21 3B 43 41 08} 0148D P.AAM: . ASCII \!AC;!UW\ : 
00000007 01494 P.AAL: .LONG : 
00000000° 01498 «ADDRESS P.AAM : 

53 41 21 46 41 21 O149C P.AAO: ASCII \!AD!AS\ : 
14A2 -BLKB 2 

0006 Q14A4 P.A LONG 6 : 

$0000000" 148 «ADDRESS P.AAO : 


OFFC 00000 INCREMENTAL DIRECTORY: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


58 00000000' EF 9E 902 MOVAB INCR_NTS, R11 : 
SE FE4B CE 9€ 000 MOVAB ~dOtSP p), ,' : 

36 08 AC p 0 MOVL DRESS, REC : 4099 

5 0200 C6 . 3 or Hite NEXT BLOCK : 4100 

SA 08 AC 04 AC C 001 ADDL LENGTH “ADDRESS, R10 : 4105 
SA 36 1 1D 1$: CMPL REC. rio : 
1 1 BL SSu 2 F 

50 C 28: MOVZWL (nec) + 4107 
FFFF 36 BF § 5 6 CMP posegs ; 
A § 8 BNEQ 3 

5¢ 7 p 00 MOVL sexy BLOCK > 4113 

0200 (6 9€ 000 MOVAB 2(R6), nets ESLOCK > 4114 


c—-—_—_—___--__ -- ——__- ————- 


50 
50 
04 AB 
50 
04 AB 
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Restore 
INCREMENTA 


00 


68 


save 
L.bl 


000000006 


AL 
EB76 


80 
B4 


coupe 
FFS4 


E 
02 nsip 
‘ 
i 
8 sos 
01 
04 03 
FB OA 
38 
14 
00000" EF 
000006 8F 
2 
0115 
AB 
30 
05 A6 
68 
06 A6 
16 
0S A6 
68 

06 ’ 
00 

OC 
88 
0 
CB 
FC =—AB 
1E 
05 A6 
« § 
3 
00 
4% 
FF5 cP 
6 
05 Aé 
BO AD 
BO AD 
FEF4 F 
5 

FF F 
08 AE 


1 


DO"OOOOWO 


at i 3$: 
i Ff 
a 41 
44 
F 47 
9A 9 
GE 52 
tHe 
4 ae 
D1 00 
1F 0006 
si 
FB 00071 
$8 = 
jf 0007E 
0 00081 6$: 
13 00084 
9A 00086 
20 aa 
0090 
1F 00092 
9A 00094 
2D 3 98 
12 $3 
Fe 4 
FB OOOAA 7$: 
FB OOOAF 
11 i 
rf 0086 8$: 
13 00089 
9A 00088 
20 099 Ff 
' 3 
; acs 
it 
fF 
F 
fF 
fF 
8 
A 
E 


D 
RECTORY - perform incremental dir et 90:23; 


BACKUP. SRC 


REC) CRO 
XT_RECO 


NEXT_RECORD 
6, NEXT_BLOCK 


OUTPUT_FAB 
ACKUP$_INCBADDIR 
#2, FILETERROR 


VER, NEXT_RECORD 
6$ 


12$ 
Seat 
(REC), R 


0 
INCR_NTS, INCR_RSA, #0, RO, 6(REC) 


7$ 
5(REC) 


RO 
INCR_NTS, INCR_RSA, #0, RO, 6(REC) 


8$ 
+f #16, (WER), INCR_VER 


; INCREMENTAL ~SCAN 
NCR_RSS 
$ 


5(REC), RO 
INCR_NTS, 


8 
Ht INCREMENTAL _DELETE 
6$ 


9$ 
#0, #16, (VER), INCR_VER 


#0, INCREMENTAL _SCAN 
#86, FNA_DESC 


FNA, FNA-DESC+4 
VER), =TSP) 
(RE 


AO 
AD 
ESC +4 


sth, Ol isgeze v4.0- 
RESTORE .8 


742 
32;1 


INCR_RSA, #0, RO, 6(REC) 


ell ae Be. SET I 


; #11 Bliss-32 v4.0-762 Page 3! 
Ip-Se-t 4 00:21:13 AX-11 BL TORE .B32;1 (17) | 
$T Restore @ save EC TORY - perform incremental dir =30b-1 982 3 £0528 {eAcKUP. Re RESTORE ponte 
vOL-000 INCREMENTAL _DIREC ve SHAB FNA_DESC 3 | 
B. AD oF Ota? ROVE TPUT NAM, RO : | 
ae conocer” Oe in PUSHL T3(R0) ; 
§ AD 9A OolTG MOVZBL 11(RO), =(SP) 
"  B & g his BBkib Ra eee ; 
FED. CP i 129 PUSHAB #6, SySSFA0 4 | 
commons ag BBE RAE HRs Stara # 
 ! BF Ob 2e 001 MOVES 40. (SP) 7 #0, #64, FIB : , ma 
00460 8 8F 00 B8 AD : c MNEGL #1, FIB+4 : 6335 
ti AD 81 BE 0014 Ve” IntRFi8e10, F1B+10 : 0586, 
(2 AD EGE CB 06 O14 MovW INCRTFIBS14, Fipste = 4542 | 
stad ie 0136 CLRQ=(SPT tote 
AS OF O01 FNA_DESC 4 
FAD SF O0186 PUSHAB FIBEDESC : | 
TE OOF aia PUSHAB 1088 
2° Sh Ob Soret PUSH OUTPUT _CHAN : 
oooo0000" EF Db 0165 CURL 5i$P) v : 
E Pe hos CALLS #12, SYS$Q10W 3 4243) 
000000006 00 86 £9 001 LBC STATUS, 108 ; 
06 PF? RF MOVZWL 10SB, STATUS 4264, 
50 $5 ES 00178 LBS STATUS, 118 ; 4246 
15 DD 00178 108:  PUSKL STATU ; 
FESO > OF OOLTD PUSHKAR RSA_DESC : 
01 dD 00181 Apt KUP$_INCENTERR ; 
ee Fe 04 0 0190 11S: ADDL2 #8. VER : 6134 
FEES 50 00196 128: ROVL —«WEXT_RECORD, REC : 4105 
* rest St 00199 aw NS ; 4261 
04 0019¢ RET 


| 
; Routine Size: 413 bytes, Routine Base: CODE + 14AC 


| 
2 
| 
| 
| 
| 
| 
| 
| 
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ST Restore gave set 16-Sep-1984 00:21:13 AX-11 Bliss-32 v4.0 
W020 CREATE_OR_OPEN_FILE = create or open output fil eats 3 £008 BACKUP. SRC RESTORE Bose ;1 
3; 2725 4 $¢ 1 ss8TTl *CREATE_OR_OPEN_FILE = create or open output file’ 
: f 8 é oF ! ROUTINE CREATE-OR_OPEN_FILE: NOVALUE= 
3; e7 3 4265 1 !+4¢ 
: ef 4 66 & 
3; 27 4267 1 ! FUNCTIONAL DESCRIPTION: 
3; 2731 4 o8 7 5 is routine creates or opens a file in response to 
; ¢ ? $2 ! a file attribute record. 
3; e7 4271 1 ! INPUT PARAMETERS: 
3; 2735 4 if; 1! NONE 
3 27 4275 1! 
3 a7 4274 1°! IMPLICIT INPUTS: 
: a7 4275 1! NONE 
3; 27 4 6 1! 
3; 2740 4277 1 ! OUTPUT PARAMETERS: 
3; 2741 4 8 1! NONE 
3: 274 4 1! 
3 274 4280 1 ! IMPLICIT OUTPUTS: 
3 2746 4281 1! NONE 
3: 2745 4 Ht 1! 
3: 276 42835 1 ! ROUTINE VALUE: 
3; 276 4284 1! NONE 
: 2748 4285 1! 
3 2749 428 1 ! SIDE EFFECTS: 
3 2750 4287 1! NONE 
3; 2751 4288 1! 
: 275 4289 1 !<<- 
3; 275 4 1 
3 o38 : BEGIN 
3; 2756 a ! Compute the size of the saved file and set the expected highwater 
3 ref : mark to match. 
3; 2759 4 OUTPUT Oe oe = 1; 
3; 2760 4 eyteyt LOCK 5 ROT( OUTPUT pe cerrapraren. EFBLK], 16); 
3; 2761 4 “OUTPUT. REC ATTREFATSW_ FFBYT 
: i : 1 N OOTPUT _MAXBLOCK™ = .OUTPUT_MAXBLOCK - 1; 
> 2764 4 -OUTPUT_MAXBLOCK GTRU .OUTPUT_ATTBUFCFAR_FILESIZE) OR 
3 Sg : ' ,eurrul “RECATTRCFATSV_ FILEORG] NEQ FATSC_SEQUENTI AL 
3; 276 4306 OUTPUT _MAXBLOCK = te ie ATTBUFCFAR_FILESIZE); 
; 768 £336 OUTPUT_ATTBUFCFAR_HIGHWATER) = .OUTPUT_MAXBLOCK + 1; 
: 2770 430 
3; 2771 4308 IF .COM_FLAGSCCOM_VERIFYING] AND .QUALCQUAL_OSAV] 
3; 277 4309 THEN 
3: 277 4310 BEGIN 
3; e277 4311 LOCAL 
3 2775 4 if FIB: BBLOCKCF IBSC LENGTH), ! FIB 
3: 277 431 FIB_DESC VECTOR(2], : Descriptor for FIB 
: 277 4314 STATUS, ' Status variable 
3 ae Ht 10SB: VECTORC4,WORD); i 1/0 status block 
: 27 431 
3; 2781 4318 ! Construct a “resultant string’ from the device name that is present in 


. 


$T Restore a save set iBege 1:13 AX-11 Bliss-32 v4.0-742 © 3 
VOe-008 CREATE_OR_OPEN_FILE = create or open output fil 23e07 138s 99: £8; 726 BACKUP. SRCJRESTORE .832;1 290 1B) 
3 27 431 : the expanded string of the current verification qualifier block and the 

; i 2 : filename string from the save set. 

3 2785 4 g OUTPUT_NAMCNAMSB 

3: e7 4 ‘BBLOCRLVERTFY, SHAE COUAL AL pey VagEsCd. DSCSW_LENGTH] + 

: 27 4324 -OUTPUT_F ILENAMELDSCSw_ 

3; ev 4325 CHSMOVE ( 

: 2789 4 $ OUTPUT “FILME rDsceu. ENGTH i, 

: $730 ‘ ar ILENAMELDSCSA~POINTERI, 

3 13 4 § -BBLOCK VERIFY_QUAL QUAL _DEV_D DESC), DSC$W_LENGTH] 

3 279 4330 -BBLOCK VERIFY QUAL EQUAL “DEVIDESCI, DSCSA~ POINTERS, 

3 2796 4331 -OUTPUT_NAMCNARSL_R 

3; 2795 4 ; INIT NAMEBLOCK CZOUTPUT. NAR): 

: $798 ¢ 

3; 2798 4335 ! Initialize the FIB with the file ID from the save set, 

3 £33 . : and access the file. 

3 2801 4 38 CHSFILL (0, FIBSC_LENGTH, F18); 

: 30 4 3 FIBCF 1BSL_ ACCTL) = FIBSMNOWRITE; 

; 28 4341 .QUALCQUAL_IGN GNO 1 TE) OR 
3; 280 ‘ ; ? castor’ PUT_FILENAM etpsesu. LENGTH] EQL ZCHARCOUNT("COOOO000JQUOTA.SYS;1°) AND 
3 bo? 4344 4 OUNT(*COO0000JQUOTA.SYS;1° 
3 2808 4345 & nce: Ny aTEC® 990000 }au0 QUOTA. SYS; 1° 
3 2809 6346 4 ZCHARCOUNT (*£000000 S:1° ;° 
; 810 4 i 4 se . OUTPUT _F ILENAME NAMELDSCSAL yoeoiatek}>” 
; Ble 4349 FIBCF IBSL ACCT 1 =_F1BSM_NOLOCK; 
3 281 4350 FIBCFIBSV_NORECORD) = TRU 
> 2814 4 31 F1B F1BSW7r 1D, NUM) = OUTPUT LATTBUF CFAR_F ID_NUM]; 
> 2815 4 3 FIBCFIBSW-FID-SEQ) = .OUTPUT-ATTBUFCFAR—FID~SEQ); 
; B16 435 FIBCFIBSW-FID-RVNJ = .OUTPUT-ATTBUFCFARFID-RVNWI; 
: 281 4354 F 1B DEsctO) = FIBSC. GTH; 
3 B18 4339 FIB-DESCC1] = FIB; 
3 281 P 4 36 STATUS = $010W( 
3 2820 P 435 FUNC=J0$_ACCESS OR IOSM_ACCESS, 
: 2821 P 4358 CHAN=.OUTPUT_CHAN 
: 28 g P 4359 10S8=10SB, ~ 
: 28 4360 P1=F1B_DESC); 
3 28246 4361 IF .STATUS” THEN ératus = .10SB(0); 
3 2825 4 ‘ IF NOT .STATUS 
3; 28 $ 4 THEN 
3 : 4364 4 ah: 
3 8 4365 4 ILE NERROR( 
3 2829 4 6 4 BACKUPS ~OPENIN + STSSK_ERROR, 
3 28 4 4 .OUTPUT "FAB, 
: 1 4368 4 “STATUS: 
: § ? H 4 TURN; 
3 Bee 4371 END 
3 2835 4 ze ELSE IF .QUALCQUAL_IMAG) 
: ti 437 THEN 
3 283 4374 BEGIN 
3; 2838 4375 LOCAL 


REST Restore a save set AX-11 Bliss-32 V4.0-742 Page 94 
WO. 000 CREATE. OR_OPEN_ FILE = create or open output fil ib-ben-1 9 9: 2}; i BACKUP. SRCJRESTORE.B32;1 (18) 
; 2839 437 FIB: BBLOCKEFIBSC_LENGTH], | FIB 

3 0 4 8 FIB_DESC: dates ' Descriptor for FIB 

; 1 4 i STATUS, Status variable 

; § 437 10S8: VECTORC4,WORD); i 1/0 status block 

See 

; eee % Be ! Construct a “resultant string’ from the device name that is present in 
3 § 4 ! the expanded string of the output qualifier block and the filename 

: of : Bs ; string from the save set. 

; bcs 4 6 i RSL] = .OUTPUT_NAMCNAMSB_ESL] + .OUTPUT_FILENAMECDSC$W_LENGTH); 
; Bey 4 Ss -OUTPU T FILENAME EDS CSU. LENGTH) 

; 8¢ ‘ 89 zOUTPUT? FILENAME LDSCSA~POINTERI, 

: 2854 4391 .OUTPUT_NAMCNAMSB_ESLJ, 

3 2855 4 3 OUTPUT” -NA NAMSL-ESA 

3 896 439 UTPUT-NAMCNAMSL-RSAJ5); 

3 See otoe INIT _WAMEBLOCK (7 OUTPUT _NAM) ; 

> 2859 4396 

3 r¢] ? ia Set the file ID into the NAM block. 

; 86¢ 4399 OUTPUT_NAMCNAMSW_FID_NUM] = .OUTPUT_ATTBUF FAR_FID_ NUM]; 

3 286 4400 OUTPUT =NAR NAMSW-FID-SEQ) = .OUTPUT-ATTBUF FARE ID” SEQ): 

3 2864 4401 OUTPUT—NAMLNAMSW-FID-RVN] = .OUTPUT-ATTBUFCFAR—FID-RVNW); 

we 

: 867 4404 Initialize the FIB. Make sure the file ID is non-zero. 

3 2869 46 CHSFILL (0, FIBSC, ENGTH. FIB) 

3 2870 440 FIB _FI1D_NUA OUTPUT. Atteur FAR_FI1D_NUM); 

+ 2871 4408 FSET LBsu- FID-SEQ UTPUT~ATTBUF LFAR—F 1D-SEQ); 

: B7e 4409 F IBLF IBSW-F ID-RVN = jouTPUT “ATTBUF CF ARF ID-RVNW); 

> 287 4410 F1B_dESCEO) ="FIBSC_L 

3 Bre 4411 FIB-DESCC1) = FIB; 

; 876 te18 IF .FIBCFIB$W_FID_NUM) EQL 

3; 287 4414 AND .FIBCFI8$O_FIB_RVN) EQL 0 

3 2878 4415 THEN SIGNAL (BACKUP$_IN vFID. 0): 

te ih 

> 2881 4418 IF .QUALCQUAL_COMP) 

: abe 441 THEN 

3 288 46 9 4 BEGIN 

; He oe § 2 : Compare operation: Access the file by its file ID. 

: se 4 , é FIBCFIBSL_ACCTL) = FIBSM_NORECORD; 

: 426 4 .QUALCQUAL_IGNO_INTE) 0 

: 890 4 $ ar en _LENGTH) EQL ZCHARCOUNT('CO00000JQUOTA.SYS;1") AND 
: 289 44 § ZCHAR sa09th: 18:1 

: 3558 ce$6 UPL BYE (*FOUBD90]GURTA:S¥8:1 3. 

+ 2895 4432 .OUTPUT at DSC its CHEE 


BACKUPS_READATTR, 


REST Restore a save set Igege p-19 : 13 AX-11 Bliss-32 V4.0-742 P 95 
VOe-000 sorts FILE = create or open output fil 73007138 90: £433 26 BACKUP. SRC RESTORES 832;1 998 18) 
1 rk a EN IBCFIBSL_ACCTLI rfigs_novoce 

; « ; 

3 4435 4 fe BCFI [esv. “AORECORDS = . > 

3 P 44 § 4 TATUS Q]0W 

3 P 44 4 FUN Coles ACCESS OR IOSM_ACCESS, 

3 P 44 3 4 CHAN =, OUTPUT T CHAN, 

3 P 44 4 10S8=10S8 

; 4440 4 Pi =F 18_DE Esc) 

: 4441 4 IF .STATUS THEN ivatus = ,10SB8(0); 

3 4442 & IF NOT .STATUS 

3 4443 4 THEN 

s 4444 Si... 

3 4445 FILE_E 

3 ate BACKUPS -OPENIN * STSSK_ERROR, 

; 444 -OUTPUT FAB, 

; 4448 » STATUS; 

3 4449 TURN; 

: 4450 4 3 

3 4451 4&4 END 

3 4452 3 LSE 

3 44535 4 BEGIN 

: 4454 & LOCAL 

; 4455 ‘ ATR_LIST: VECTORCMAX_ATTRS*2 + 1]; ! ACP attributes List 
3 445 4 

3 ret 2 GET. ACP_ATTRIBUTES(ATR_LIST); 

3 4460 4 -OUTPUT_ATTBUFCFAR_FID_NMX] EQL 0 AND 

3 4461 5 OUTPUT ATTBUFCFAR_FIS_NUM] LEQU FIDS$C_BADBLK OR 
3 446 g UT_ATTBUFTFAR- STRUCE vB] EQL AND 

3 446 “OUTPUT _ATTBUF CF AR_ FID NUM] EQL F1D$¢ BADLOG) ) 
3 4464 & N 

; 4465 3 BEGIN 

; 4466 CAL 

3 4467 BLD RECATTR: SOL OER EPA TSC LENGTH, 

$ 4468 FAT— ATR_LIST: BBLOCK(12); 

: £056 

: 4471 ' File attribute record for aan initial file. Read the record 
3 447 i attributes. This is required because HIBLK and EFBLK are 
: rots incorrect in the save set record attributes. 

: 4475 FAT_ATR_LISTCO.0.16,0] = ATRSS_RECATIR; 

: 447 FAT_ATR_LIST(2,0,16,0) = ATRSC- at he 

: 447 FAT_ATR_LISTLG, 3 0) = OLD. RECA 

P 447 FAT ATR_LIST 8, e ° = 

3 P 447 STATUS = $$0Q]0W( 

3 P 4480 FUNC=]0$_ACCESS 

; P 4481 CHAN=.OUTPUT_CHAN, 

3 P 44 § 1088-1088 

: P 44 P1=F1B_DESC, 

; 44 PS=FAT-ATR LIST); 

$ 4485 IF .STATUS THER STATUS = .10SB[0); 

; 44 If NOT .STATUS 

3 44 ae 

3 ILE_ERROR( 


Saas? cage ere ey Aa 


REST Restore a save set Ibege 1984 1: AX-11 Oi ies =32 v4.0-742 Pa 
VO0-000 CREATE_OR_OPEN_FILE = create or open output fil =3ep bac 9: 3 Me EBACKUP- $RC} RESTORE .B32;1 cadet 5 
§ 3 4490 ureuT FAB, 

3 4 4491 ATuS); 

3 5 44 ¢ 

3 $ 449 

3 2 ren] Copy HIBLK and EFBLK to the new record attributes. 

; 28 449 durPUT RECATTREFATSL_HIBLK = .OLD_RECATTR FATSL_HIBLKI; 
3; 2960 449 OUTPUT “RECATTRLFATSL_ EFBLK = .OLD- RECATTREFATSL— EFBLKI; 
3; 2961 4498 

3 308 4499 

: 2% ‘3 , Write the new record attributes. 

> 2965 P 4 é STATUS = $$010W{ 

3 6 | P 45 UNC=]0$_MODIF 

3 296 P 4504 CHANS OUTPUT TCHAN, 

3; 2968 p $282 10S8=]0SB8 

> 2969 P 4506 P1=F18_DESC, 

3; 2970 P 450 PS=ATR_L 

3; 2971 4508 5 P6=OUTPUT_A 

: 2 4509 5 IF .STATUS THEN srarus = .10S8(0); 

3; 297 4510 IF NOT .STATUS 

3 2974 4511 THEN 

3 5 t21§ FILE_ERROR( 

$ 376 451 BACKUPS_WRITEATTR, 

3; 297 4514 2 OUTPUT FAB, 

3: 2978 4515 ~STATUS); 

3 79 $28 5 RETURN; 

3; 2980 4517 5§ EN 

3; 2981 4518 4 ELSE 

3 o8e 4519 § BEGIN 

: 298 4520 5 

3: 2984 4521 5 ' Create the file. 

: 2985 45 ¢ 5 ! 

3: 2986 45 5 LOCAL 

3 2987 $358 5 NAM_DESC: VECTOR(2); ' Descriptor for P2 parameter 
3; 2989 4396 : 

3: 2990 45 5 ! Get the string that will go into the file header by 
3 1 4399 2 ; stripping the directory specification. 

; 4530 5 NAM wan -BESCEC] -OUTPUT_NAMCNAMSL_RSA]_¢ .OUTPUT_NAMCNAMSB_RSL] - .OUTPUT_NAMLNAMSL_NAME); 
$ $2 2 “DESCLI -OUTPUT~ NAM NAMSL~ NAME); 

: 45 

3 $3 : ; Initialize FIB fields needed for create. 

; 4536 FIBCFIBSW _DID_NUM] = .OUTPUT_ATTBUFCFAR_DID_ Seo]; 

3 4537 : FIB FIBSW- DID_ “SEQ) = .OUTPUT- ATIBUF FAR “DID- SEQ 

3 4538 FIB FIBSW_ DID ent = acu rPuT. ATTBUF FAR-DID-RVNW 

3 4539 F IBLF IBSV-EXTEND RUE 

3 4540 IF .OUTPUT FILECHARCT CH V ~fONTIG) THEN Fyoceigsv. saith TRUE; 
; iste ett 1BsL _ExS2) = .OUTPUT“ATTBUFCFAR_FILESIZE); 

: 454 

3 o3t4 : : Pass a create Q10 to the standalone ACP. 

: P 4546 STATUS = S$Q10W( 


Kk 11 
REST Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 Pa 97. 
yo2-000 CREATE_OR_OPEN_FILE = create or open output fil ety 7 $0 fo:88 EBACKUP.SRe R gr ORe Bases 9° 18) 
: 10 P 4547 FUNC=10$_CREATE OR IOSM_CREATE OR IOSM_ACCESS, 
; 301 P 454 CHAN=.OUTPUT_CHAN, 
: 3 P 454 10SB8=10S8 
; 91 P 4 Pi=F 18 _DESc, 
; 3014 P 4551 Be=NAM_DESC. 
; 3015 P 4 é P5=ATR-LIST 
; O16 4 P6=OUTPUT _ATTBUF); 
: 3017 4336 IF .STATUS THEN STATUS = .10SBL0J; 
: 3019 45 
; 9 9 4 3 IF _.STATUS EQL SS$_DEVICEFULL AND .FIBLFIBSV_ALCON] 
im | iE open 
; , ¢ $28) ? : If a contiguous create failed, try a non-contiguous one. 
: 3026 tee8 5 FIBCFIBSV_ALCON] = FALSE; 
3 3027 P 4564 6 STATUS = S$OI 
: 3028 P 4565 6 FUNC=10$_CREATE OR IOSM_CREATE OR IOSM_ACCESS, 
; 029 P 4566 é CHAN=,OUTPUT_CHAN, 
3 3030 P 4567 6 10S8=10SB 
pH Ob Se plate Bese. 
. = 
; 30 § P 4570 6 PS=ATR-LIST, 
3 30 4571 6 P6=OUTPUT_ATTBUF); 
3 3035 457¢ 5 IF .STATUS THEN STATUS = .10SBC0); 
: 30 4573 6 IF .STATUS THEN FILE_ERROR(BACKUP$_NONCONTIG, .OUTPUT_FAB); 
3; 303 4574 5 END; 
. re 
: 3040 4577 5 IF NOT .STATUS 
3002 re ar THEN SEGIN 
; be 4580 6 FILE_ERROR( 
> 3044 4581 6 BACKUP$_OPENOUT + STS$K_ERROR, 
: 3045 498¢ 6 .OUTPUT~FAB, 
3 3046 4583 6 » STATUS); 
3 3047 4584 6 TURN; 
: 3048 4585 : 
3080 4367 
: 051 4588 ! If this is the boot file, rewrite the boot block with the 
: 036 $283 5 appropriate LBN. 
: 084 4591 H if {OUTPUT _ATTBUF CF AR_BOOTVEN] NEQ 0 
; 056 4393 3 STA_WRITEBOOT(); 
3 305 4594 4 ND; 
: 3089 4398 enp °N? 
: 960 4397 ELSE IF .QUALCQUAL_COMP) 
; 064 1399 BEGIN 
3 306 4600 4 IF NOT $OPEN(FAB=.OUTPUT_FAB) 
> 3064 4601 3 THEN 
: 3065 460¢ 4 BEGIN 
: 3066 4603 4 FILE_ERROR( 
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11 
set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-74 
FILE = create or open output fil f-Se0-19 4 90h e BACKUP .SRC RESTORE Boost 


BACKUPS$_OPENIN + STSSK_ERROR, 


OUTPU 
-OUTPUT-FABLFABSL_STSJ, .OUTPUT_FABLFABSL_STVJ); 
RETURN; 


ND; 
UUTPUT CHAN = .OUTPUT_FABLFABSL_STV); 


SE 
BEGIN 

OCAL 
SAVED_ALQ, ! Saved allocation 
SAVED _CTG, ! Saved contiguous attribute 
XABPRO: SXABPRO_DECL, 
STATUS; 

If directory not found during SPARSE, try to create it. 

if OUTPUT _FABLFABSL_STSJ EQL RMS$_ONF 
i NOT IMPLICIT_DIRECTORY() 


RETURN; 


Establish ownership of the new file. 
IF NOT .QUALCQUAL_O_OWN_ORIG] AND NOT .QUALCQUAL_INCRI 
OUTPUT_ATTBUFCFAR_UIC] = .JPI_UIC; 
if QUAL COUAL 0_OWN_UICI 
OUTPUT_ATTBUFCFAR_UIC] = .QUALCQUAL_O_OWN_VALUJ; 
- s QUAL CQUAL _0_OWN_PAREJ 
OUTPUT_ATTBUFCFAR_UIC] = GET_PARENT_UIC(); 


: Initialize protection XAB for the file. 


$XABPRO_INIT(XAB=XABPRO) ; 
XABPRO RABSL UIC) = OUTPUT ATTBUFCFAR_UIC); 
XABPRO XABSu PRO} = &x'FFFFY: 


' Use default protection 
OUTPUT_FABLFABSL_XAB) = XABPRO; 


Attempt to create the file. 


SAVED_ALQ = .OUTPUT_FABCFABSL_ALQ); 
SAVED-CTG = .OUTPUT~FABLFABSV-CIG); 
STATUS = SCREATE(FAB=.OUTPUT_PAB); 


! If the create returns with an FNF error, we may have a dangling 
! directory entry in the directory path. Attempt to create i 
! and try again. 


A 
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RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss<32 V4.0-742 Pa 99 
VO2~000 CREATE_OR_OPEN_FILE = create or open output fil $7308713 4 3 f6:86 YBACKUP.SRe RESTORE .632;1 918) 
: 3124 4661 : 
3; 3125 4 ¢ If .STATUS EQL RMSS_FNF 
; 31 8 466 THEN 
3 SY 4664 4 GIN 
; 3128 4665 4 IF NOT LICIT_DIRECTORY () THEN RETURN; 
3; 3129 4666 4 STATUS = SCREATE (FAB = .OUTPUT_FAB); 
3; 3130 466 3 
3; 3131 4668 
ee ) ¢ 4669 
3 \ tee8 i. EQL RMS$_FUL AND .OUTPUT_FABCFABSV_CTGJ 
3; 3155 ree} 4 BEGIN 
3; 3136 46 4 
3 it tebe é If a contiguous create failed, try a non-contiguous one. 
3; 3139 4676 4 OUTPUT_FABCFABSV_CTG] = FALSE; 
; 3140 4677 4 STATUS = S$CREATETFAB=.OUTPUT FAB); 
3 3141 4678 4 IF .STATUS THEN FILE_ RROR (BACKUP$_NONCONTIG, -OUTPUT_FAB); 
3 16g 4679 END; | 
3 314 4680 
3 3144 4681 
3; 3145 468 OUTPUT_FABCFABSL_XAB) = 0; 
319 684 | 
3 3146 4685 IF NOT .STATUS 
3; 3149 4686 THEN 
: 3150 4687 4 BEGIN 
3 3151 4688 4 FILE ERROR ( 
3 13 4689 4 BACKUP$_OPENOUT + STSS$K_ERROR, 
3; 315 4690 4 -OUTPUT_ 
: 3154 4691 4 -OUTPUT~FABCFABSL_STSJ, .OUTPUT_FABLFABSL_STVJ); 
3; 3155 4692 4 RETURN; 
fe os © i ft 
3 3134 4695 
3 $128 $058 3 OUTPUT_CHAN = .OUTPUT_FABCFABSL_STVJ; 
; 3161 4698 
3 166 4699 ! If the file is being created /OVERLAY and has insufficient space, 
3 137 $790 it must be extended. 
: 3165 47 é if .QUALCQUAL_OVER] AND .OUTPUT_FABLFABSL_ALQ] LSSU .SAVED_ALQ 
3 3166 470 THEN 
3; 3167 rh & BEGIN 
; 3168 4705 4 LOCAL 
3; 3169 4706 4 FIB: COL OCKEE OSC LENGTH, ' FIB 
; 3170 4707 4 FIB_DESC: VECTOR(2), ' Descriptor for FIB 
3; 3171 4708 4 STATUS, ' Status variable 
3 \7¢ 4709 4 10SB: VECTORC4 WORD]; ! 1/0 status block 
3; 317 4710 4 
3 3174 4711 4 
3 3175 rie 4 CHSFILL(O, FIBSC LENGTH F1B); 
: 1% 4713 4 F18 FIBSV_NORECORD) = TRUE; 
3; 317 4714 & FIBLFIBSV_EXTEND] = TRUE; 
3; 3178 4715 4 FIBCFIBSL_EXSZ) = .SAVED_ALQ = .OUTPUT_FABCFABSL_ALQ); 
; 3179 ors 4 FIB_DESC(O) = FIBSC_LENGTH; 
3; 3180 4717 4 FIB-DESCC1) = FIB; 


=32_v4.0-742 
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TH ONNT MOP DKOK— UM TFT MNOR- DAO UM TMNOR. DHOOM MUM TNOR. DOOK UM TIMOR DOOK— UMTN Or 
DIOGO ODODE AOS SAPS DOSSDOS OS De eee SIRI UIUC U UCU RII 
SO INI NINN IOI NINN NIE OINI NNN OOO 
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ERS 


Restore 
CREATE _ 
; 3 4775 4 
3 Of76 
3; 3240 4777 
3 3241 pa 
3 eg 477 
3; 324 4780 
$ 44 4781 
3; 3245 47 ¢ 
: ‘8 47 
3; 324 4784 
3; 3248 4785 
3: 3249 47 
; 3250 4787 
; 3251 4788 
53 2€ 41 54 4F 55 
53 2 41 5&6 4F 55 
18 
OOAC 
03 
04 
0040 =s BF 


a save set -1984 13 AX-11 Bliss-32 V4.0-742 
OR_OPEN_FILE = create or open output fil vs 3001 G86 9: $435 26 BACKUP. SRCJRESTORE.832;1 
THEN 
yp. | JLEWERROR (BACKUPS_URITEATTR, -OUTPUT_FAB, .STATUS); 
END; 
OUTPUT_FLA ies oT PUT sae = TRUE; 
COM_FLAGSCC LESEEN = TRUE; 


IF avatars owl 
CHECK_EOF _BLOCK(); 
END; 


51 5D 30 30 30 30 i 30 58 01649 P.AAP: . ASCII \CO00000JQU0TA.SYS;1\ 
51 5D 30 30 30 30 30 30 58 0165¢ P.AAQ: .ASCII \COO00000IJQUOTA.SYS;1\ 
31 38 53 59 01668 
.EXTRN SYSSOPEN, SYSSCREATE 
OFFC 00000 CREATE_OR_OPEN_FILE: 
.GORD ~ Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 
5B 000000006 00 E 90002 vAB STA_QIOW, R11. 
5A 000000006 00 3f 00009 MOVAB FILE ERROR, R10 
59 00000000" EF 9E 00010 MOVAB TPOT FAB, RO 
5E FFI0 §=6©CE «9E 00017 MOVAB -240(SP), 
14 Ad oi D0 9001¢ MOVL #1, OUTPUT 
a9 3c AD 1 %¢ 0020 ROTL #16 buTPuTe LPCATTRGS, OUTPUT _MAXBLOCK 
40 Ad BS 00026 TSTW ourbut _RECATTR#12 
03 if 00029 BNEQ 1$ 
18 Ad D7 00028 DECL  OUTPUT_MAXBLOCK 
0080 9 18 ag D1 900 E 1$: CHP TPUT“MAXBLOCK, OUTPUT_ATTBUF +92 
FO. OS 34 a9 3 90 118 TPUT_RECATTR, #240 
18 Ag 0080 ¢ 06 0050 38: MOVL QuTPUT ATTBUF +92, OUTPUT _MAXBLOCK 
9 18 «Ag i - 04 $: ADDL3 output 1 ARANBL OCK. OUTPUT _ATTBUF +136 
03 FFI6 «9 3 £0 OO04A BBS 
009F 31 00050 4$: BRW 
FE cg 9 3 5$: STB ail 
fF? 1 BGEQ 4 
4 06 Aad DO 00 39 MOVL § OUTPUT_NAM, R6 
0 00C4 £9 tb 0050 mOVL VERIFY-QUAL, RO 
Ab 60 24 =O p re ADDB3 OUTPUT FILENAME » (RO), 3(R6) 
86 0% 80 6 § MOVC (RO), 34 
6 28 OB 24 ay 28 of moves _ FILE Dine OUTPUT _FILENAME+4, (R3) 
000000006 00 if FB 00079 CALL 4 INIT _NAMEBLOCK 
00 6E - 00 2c ! MOVE +0: (SP)> #0, #64, FIB 
CO AD 1 p00 00089 MOVL #1, FIB 
OF FEA6 C9 2 p8 0 S #2, QUAL+10, 6$ 


co et —E 


03 
04 


moto ee 


save se 
~OPEN_FI 
89 FF3C 
C 
C 
C4 
C 
8 
BC 
000000006 
03 FEA6 
A6 08 
B6 OC 
63 28 
000000006 
4 
8 
00 
C4 
C8 
88 
BC 
000000006 
co 
OF FEA6 


13 


00 


C9 
13 


ra) i 
00100000 rt 
» 
? Ag 
4 8F 
CO AD 
: 
of 
7e 

§ AD 
8F 

F Ag 
7E 

oC 

50 

BO AD 
50 

048C 

50 

OOFA 

03 

0266 

04 Ad 
24 OAD 
OB A6 
50 

24 OAD 
56 

01 

04 Ag 
7&4 =D 
? Ag 
00 

CO AD 
74 «AD 
78 «AD 
3 8F 
C AD 
4 Ad 
14 

C8 AD 


E 
000000006 ot 
FEAG 


0088 
00200000 BE 
24 =O 


| 
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12 
te = create or open output fil if-Sep-1984 $0 ea ide 


Ha 

NEQ 

CMPCS 
NEQ 


10$: 


11$: 


128: 


orth Blis abe V4.0-742 
BACKUP. SRC JRESTORE .832;1 


QUTPUT FILENAME, #19 
#19, P.AAP, QOUTPUT_FILENAME+4 
#1048576, FIB 

Ay F1B+2 

QUTBUT_ATTBUE +80, FIB+4 

OUTPUT ATT@UF +84, F1B+8 


64, FIB_DESC 
#18, FAS DESCSS 


$B 
#114, =(SP) 
wy 


#12, SYS$OI0W 
TATU 

10SB, STATUS 
TATUS, 8$ 
STATUS 


#3, QUAL+10, 10$ 
32§ 


OUTPUT_NAM, R6 
QUTPUT-FI ENAME, 11(R6), 3(R6) 
1(R6)~ R 


RO, a12(R6), a4(R6) 
OUTPUT FILENAME, @OUTPUT_FILENAME+4, (R3) 


#1, INIT_NAMEBLOCK 
oufPuT_ 
OUTPUT-ATTBUF +80, 36 
OUTPUT ATTBUF +84. 40 
#0, (SP), #0, #64, F 


( 
( 
I 
OUTPUT_ATTBUF +80, FIB 
OUTPUT pre *e FIB 


FIB, FIB-DESC+4 


FIB+4 
11$ 

F1B+8 

11$ 

-(SP) 

sGACKUPS INVEF ID 
#2, LIBSSIGNAL 
QUAL+ 

12$ 

19$ 


® 
OUfPUT_FILENAME, #19 


Page 102 
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(18) 
4342 


save se 
-OPEN_FI 

B9 FE68 =F 

C AD 

C AD 

0 

OOOTF FFF ar 

7E 

68 

7E 

000000006 9F 

52 

94 

08 

EEOS =F 

03 

02 

09 

6E 

04 AE 


: 


00100000 F 
aR 
5 
i 
? 
of 
7E 
99 AD 
7 of 
0 
7E 
oc 
10 
E 
7E 
7E 
B8 AD 
7E 
ne 
30 
E 
oc 
30 
52 
BO AD 
Ze 
O38F 
3 
6 
000009006 gf 
0157 
2c OE 
01 
79—AD 
11 
7% =D 
i 
0091 I 
7% 869 
0080 
00040020 F 
OC AE 
08 AE 
« f 
? 
7E 
B8 AD 
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COOOoOoCoo 
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rw 
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ae 


16$: 


ss 
con 
ated 
ov ee 


19$: 


208: 
21$: 


D 12 
te - create or open output fil ae ae 90°25; 


ert Oi ieee V4.0-742 
BACKUP. SRC JRESTORE .832;1 


«AAQ, GOUTPUT_F ILENAME +4 


: 


= (SP) 


STATUS 

OUTPUT_FAB 

#BACKUPS_OPENIN+2 

30$ 

ATR_LIST 

#1, ~GET_ACP_ATTRIBUTES 
fPuT_ATTBOF +85 

UTPUT_ATTBUF +80, #3 
TPUT_ATTBUF +109, #2 
TPUT_ATTBUF+80, #9 

5$ 

#262176, FAT_ATR_LIST 

OLD_RECATTR, FAT-ATR_LIST+4 

FAT ATR_LIST+8 

FAT_ATR_LIST 

-(SP) 


-(SP) 
FIB_DESC 


Pee Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Se Se Se Se Se Be Be Se Se Se Se Be Be Pe Se Se Se Se Se Ge Se Ge Se Se Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 


12 
RESTOR Restore a save set ig-ge -1984 00:21:13 AX-11 Bliss-32 v4.0-74 
VO2-000 CREATE_OR_OPEN_FILE = create or open output fil ~Sep-19 4 eae} YBACKUP SRE RESTORE B5201 
7E 7¢ 3 CLRQ 0. = (SP) 
BO AD 9F PUSHAB 1058 
32 0D A PUSHL # 
F8 AD OD C PUSHL OUTPUT_CHAN 
7E D4 F CLRL. = = (SP) 
F 41 CALLS #12, S$TA_QIOW 
D 4 VL = RO STATOS 
g f 4 BLBC STATUS, 22$ 
2 BO A ¢ 4A MOVZWL 10SB, STATUS 
0D 3 E 4 BLBS STATUS, 23$ 
Hy amr a 
000000006 br DD 5 PUSHL #BACKUPS$_READATTR 
6A 3 FB 00258 CALLS #3, FILE~ERROR 
38 AD 10 AE 7 00 3 238: vo O16 RECATIRGG, OUTPUT_RECATTR+4 
¢4 AS 9F 0026 PUSHAB OUTPUT _ATTBUF 
0 AE 3 0 $6 PUSHAB ATR_LIST 
7E 7C 0026 CLRQ = = (SP) 
7E D4 00268 CLRL =_- = (SP) 
BB AD 9F 0026D PUSHAB FIB_DESC 
7E 7C 00270 RQ = =( SB) 
BO AD 9F 0027 PUSHAB 10SB 
36 DD 0027 PUSHL #54 
F8 AD DD 0027 PUSHL OUTPUT_CHAN 
7E D4 OO27A CLRL. = (SP) 
$8 o¢ FB 0027¢ CALLS #12, STA_QIOW 
5 DO 0027F MOVL RO, STATOS 
08 52 9 00 Be BLBC STATUS, 24$ 
52 BO AD 3¢ 008 MOVZWL 10SB, STATUS 
01 52 E9 00289 BLBC STATUS, 24$ 
4 008¢ RET 
52 DD 0028D 24$: PUSHL STATUS 
6 DD 0028F PUSHL OUTPUT_FAB 
000000006 _ 8F bp 0291 PUSHL #BACKUPS$_WRITEATTR 
0084 31 00297 BRW 
50 04 a9 DO 0029A 25$: MOVL TPUT_NAM, RO 
51 03 AO 9A 99 H MOVZBL 3(RO),~R1 
51 04 AO CO 002A ADDL2 4(RO). R1 
24 «AE 51 4C AO C3 002A6 SUBL TO(RO}, R1, NAM_DESC 
28 AE 4C AO 00 002AC MOVL #76(RO), NAM _DEST+4 
CA AD 7A Ad DO 00281 MOVL § OUTPUT_ATTBOF+86, F18+10 
CE AD 7E «AQ 00286 MOVW $OUTPUT -ATTBUF+90, FIB+14 
D6 «AD 80 BF BB BISB2 #128, FiB+ 
0088 9 C TSTB TPUT_FILECHAR 
4 1 C4 BGEQ 
D6 «OA 1 88 00266 BISB2 #1, FIB+22 
DB AD 0080 C9 O2CA 268:  MOVL OUTPUT_ATTBUF+92, FIB+24 
; AD 9F 0020 PUSHAB OUTPUT ~ATTBUF 
0 AE 3 020 PUSHAB ATR_LIST 
7E 7C 0020 LRQ ss = (SP) 
34 AE OF 002D SHAB NAM_DESC 
BB AD 9F 002DB PUSHAB FIB~DESC 
ao Ab OF SO5e enaB Ieee. 
7E 3 8F ah a MOVZBL 138 -(SP) 
Fe =6AD DD OO2E PUSHL OUTPUT_CHAN 
7E D4 OOZEA CLRL. = = (SP) 


LPL 


Ft a 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Fe Fe Ge Se Se Se Se Se Se Se Se Se Be Be Se Ge Se Se Be Se Se Se Fe Se Se Se Se Se Se Be 


Ss se cRaca ms gpigen a Oa me 
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rw 


RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 Page 105 
VO2-000 CREATE_OR_OPEN_FILE = create or open output fil g: Sep-1964 3 fo :88 BACKUP. SRCJRESTORE .832; 1 pf 183 
F EC CALLS #12, STA_Q10W : 
D EF MOVL RO SiATOS : 
3 Bo AD Se i bad ete — 
00000850 &F $2 b] 69 27%: cMPL TATUS, #2438 + 4557 
cs D6 AD § BLBC F18+22 gs : 
D6. AD 01 8A BICB2 FIb+ ; 4565 
4 Ad OF A PUSHAB output ATTBUF + 4571 
0 AE 9F PUSHAB RALIST : 
7E 7C 0031 LRQ a : 
34 AE OF 0031 PUSHAB NAM_DESC ; 
BB AD 9F 0031 PUSHAB FIB-DESC : 
7E 7C 00318 CLRQ = (SP) : 
BO AD 9F OO31A PUSHAB 198 : 
7E F3 «BF OA ; 1D MOVZBL #24 : 
FB OAD «ODD 1 PUSHL OUTPUT. CHAN : 
7E D4 00324 CLRL 73s : 
68 o¢ FB 00326 CALLS #12, STA_QIOW : 
: DO 00329 MOVL RO, STATOS : 
1 52 5 032C BLBC STATUS, 29$ : 4572 
52 BO AD ¢ O32F MOVZWL I0SB, STATUS : 
OE 52 E9 00333 LBC STATUS, 29$ : 4573, 
6 DD 0 36 PUSHL OUTPUT FAB : 
000000006 8F DD PUSHL  #BACKUPS$_NONCONTIG : 
6A 02 FB 0033E CALLS #2, FILE-ERROR : 
OE 3 63 005 1 28$:  BLBS STATUS, 31 : 457 
DD 00344 29$:  PUSHL STATUS : 458 
69 DD 00346 PUSHL OUTPUT : 458 
000000006 8F DD 00348 PUSHL MBACKUPE 0 OPENOUT+2 : 458 
6A 03 FB 0034E 30$: CALLS FILE-ERROR ; 
~ 04 00351 RET : 4579 
008C¢ £9 D3 00352 31$:  ‘TSTL QUIPUT _ATTBUF +104 : 459 
8 1 00396 BEQL 4$ : 
000000006 0c 90 FB 00398 CALLS #0, STA_WRITEBOOT : 459 
52 69 0 tre 32$:  MOVL §OUTPUT_FAB, R2 : 4600 
FEA § C9 95 00364 TSTB © QUAL#8 : 459 
¢9 18 00368 BGEQ ; 
2 DD 0036A PUSHL R2 : 4600. 
000000006 09 gi FB 6 6¢ CALLS a. YSSOPEN : 
36 69 b0 1 MOVL  OUTPUT_FAB, RO + 4606 
7E 08 Ag D 00 OVO 8(RO),~=(SP) F | 
50 DD 0037D PUSHL R : 4605 | 
000000006 BF bp ir PUSHL ere OPENINe2 + 4604 | 
50 3 D 33$: MOVL 1% PUT 3 4609 | 
FB AD oc ad MOVL 1 &R es oe pay _CHAN : 
O1E 348: BRW 134 : 4597. 
0001C04A =F 08 A p| 93 5$: cHPL (R2), #114762 + 4622 
F4F7 cf FB CALLS 40, JMPLICIT _DIRECTORY + 4624 
5 E A BLBC —E.—s@RO, : 
op FEAB C9 E AS 36$: BBS #2. QUAL +12 > 4631 
FEA6 C9 4 € AB BBS #4. QUAL+1 ; 
0084 (9 Fo70 Ss C9_s«éOD B1 MOVL JP{_UIC, 16; 378 _ATTBUF +96 > 4633 


a ere 


Fe Restore a save set 

CREATE_OR_OPEN_FILE = create or open output fil 
07 FEAB C9 E1 B8 
bbbe C FEDC D FA 

OA FEAB C E C 

foe CF fe C 

084 C9 3 0 
0058 8 8F 00 6€ P eS C 4 
AB AD sane 8F +t DE 
BO ADO Ot AE OOSEA 
5 69 06 ef 
“"h 10 AD 00 G0see 
58 06 Ad 01 98 EF OOSFA 

0 DD 004 

000000006 99 39 4 oS 
00018292 8F § } a4 

F47F CGF 9° Fe 41 
01 0 f O41A 
4 p61 

69 DD 0041 
come fg AB, 
00018544 8F 3§ 0} Bae 
50 69 06 004 3 

ae. 89 50 004 
a iS Bs Bate 
mee 8) op ante 
08 § E9 0044E 
69 DD 00451 
“. 000000006 +4 4 net} 
50 $5 DO 045C 
24 AO D4 0045F 
10 5 58 ret 

7E 08 A D 0046 
50 DD 00469 
- 000000006 4 43 ry 
04 00474 
56 69 D oe} 

‘8 AQ OC A6 DO 0047 

74 FEA c9 04 €1 84 

57 10 oe et rt 
0040 =8F 00 6€ $3 09 Hi Oe89 
5A AE 20 : 432 
nn § SB 8 HH Res 
50 AE 4 8F SA 04A1 


: 


12 


-Sep-19 
~ep-19 


40$: 
418: 


42$: 


43$: 


44%: 
45$: 


SUBL 
MOVZBL 


rt 


yee Bliss-32 V4.0-742 
BACKUP. SRC JRESTORE .832;1 


ry QuAL +12 38$ 
QUAL +64, out T_ATTBUF +96 
#3, QUAL+ 9$ 


#0. GET PARENT UIC 
RO, OUTPUT ATTBUF +96 
#0, (SP), #0, #88, SRMS_PTR 


#22547, $RMS_PTR 
fae + prreyr or. XABPRO+12 
a PRO+ 


OUfPUT_FAB, RO 

XABPRO, 36(RO) 

16(RO), SAVED_ALQ 

#4, #1, 6(RO)> SAVED_CTG 
#1, SYSSCREATE 

RO, STATUS 

STATUS, #98962 

#0, IMPLICIT_DIRECTORY 
RO, 41$ 


OUTPUT_FAB 
#i, SYSSCREATE 

* STATUS 
STATUS, #99652 
43$ 
OUTPUT_FAB, RO 
#4, 6(RO), 43$ 

fPUT FAB, RO 
‘ 6, 6TRO) 
#1, SYSSCREATE 
RO, STATU 
STATUS, 43$ 
OUTPUT 
#BACKUPS_NONCONTIG 
#2, FILE-ERRO 
QufPUT_FAB, RO 

6(RO) 

TATUS, 45$ 
BRO), -(SP) 
#BACKUPS_OPENOUT+2 
#4, FILETERROR 

TPUT_FAB, R6 
12(R6)> OUTPUT_CHAN 
#4, QUAL+11, 48$ 
ssn SAVED_ALQ 
#0, (SP), #0, #64, FIB 
432 FIB+2 
#126, F1B+22 
16(R6), SAVED_ALQ, FIB+24 
#64, FiB_DESC 


; rT 
RESTOR Restore a save set 16-Se 4 3 AX-11 Bliss=-32 Vv4.0- P 7 
yO. 008 CREATE_OR_OPEN_FILE = create or open output fil g: att 7 90: £; % BACKUP. SRC REST Ure Bsoet age | ) 


54 OA 58 AE SE 00406 MOVAB IB, FIB_DESC+4 : 4717 
7E 7C O04AB CLRQ 0s =( SP) t 6722. 
7E 7C€ 004AD CLRQ  =(SP) : 
7E DG OO4AF LRL ss = (SP) : 
64 AE 9F 00481 SHAB FIB_DESC : 
7E 7C 004B4 CLRQ = =(SP) : 
68 AE OF 486 PUSHAB 1988 : 
36 DD 0048 PUSHL 4 : 
F8 AD DD 0048B PUSHL  OUTPUT_CHAN : 
7E D4 0048 CLRL. =(SP) ~ : | 
000000006 9 o¢ Fe 4C CALLS #1 PAS ts ; 
5 O4¢ BLBC =. STAT t 4723) 
0 48 OA ¢ 4CA VZ2WL lose. ae Srtir s : 
18 2 EB 004CE BLBS —s STA ae + 47246 
Bb ny cess Fue Sate : 18 
000000006 SF DD bebe PUSHL BACKUPS OPENOUT®2 : 235 
A 03 FB 0408 CALLS #3, FILE ERROR : 
F8 AD DD ADE PUSHL OUfPUT_CRAN + 4731 
000000006 00 01 FB O04E CALLS #1, SYSSDASSGN : | 
04 004E8 RET + 4726 
0B 58 £9 004E9 47$: BLBC SAVED_CTG, 48$ : 47 
69 DD O04EC PUSHL OUTPUT ; 
000000006 8F DD O04EE PUSHL #BACKUPS. NONCONTIG F 
ga 02 FB 0044 CALLS #2 ERROR : 
6 94 A bo 04°7 48$: MOVL Q fPUT CARA. Rb + 4741 
5 Ag 95 004FB TSTB (R6) : 
79 19 O04FE BLSS 508 : 
7% 35 Ab 06 £0 90200 BBS #6, 53(R6), 50$ + 474 
OOA2 £9 83 0005 tstw UTPUT_ATTBUF +126 > 4743 | 
0040 8F 00 6E 00 2¢ 00508 MOVCS #0, (SP), #0, #64, FIB : 4757 | 
58 A 051 3 
SA AE 20 88 00514 BISB2 : 4758 | 
62 AE 2A AB DO 00518 MOVL o3ea6)! "Flge19 : 4759 
66 AE 2E A6 BO 0051D MOV 48tR R6). FIB+1 : 4761 
94 AD 00A 9 BO 00522 MOVW OUTPUT + at Bur s126, FIB+44 : 4766 
50 AE 4 F 9A 00528 MOVZBL #64, FIB_DES : 476 
54 SOA 58 AE OE 05 D MOVAB. FIB. FIB-DESC+4 > 4764 | 
50 3 a6 9A 00532 MOVZBL 3(R6), RO > 4765 
0 4 AoC 03 ADDL2  4(R6). RO : 
468 AE 0 4C A C3 0053A SUBL3 76(R65, RO. PNA DESC : 
4C AE 4C Ab b 054 MOVL 76(R6). FNA_DEST+4 + 4766 | 
7E 7C¢ 094 CLRO = =( SP) : 4772. 
7E 7C 0054 CLRQ  =(SP) : 
58 AE OOF 0549 PUSHAB FNA_DESC : 
64 «OA 9 54¢ PUSHAB FIB~DESC : 
7E 7C O054F CLRQ = = (SP) : 
60 AE 9F 00 31 PUSHAB 1088 : 
36 DD 4 PUSHL #54 ; 
F8 AD OD 6 PUSHL  OUTPUT_CHAN : 
000000006 oe FB CALLS #1 Ase ow | 
g 9 p BLBC —_« STAT ro > 4773. 
0 40 A ¢ MOVZWL [tie Seral : 
D 2 E BLBS at + 4774 
DD 0056C 498 PUSHL : 4776. 


ne stone Restore a save pet Ig-Sep =1984 90:71 7:21:13 AX-11 Bliss-32 V4.0-742 Page 108 

Vv CREATE _OR_OPEN_FILE = create or open eee fil ~Sep-1986 726 BACKUP. SRCJRESTORE.B32; 1 ore | 
D nage PUSHL 3 
000000006 8F 05 PUSHL eo WRITEATTR : 

6A 3 0576 CALL RROR 3 

FC AQ 1 0579 50$:  81S8 1, OUTPOT FLAGS 3 4781 

FFI6 «=6C9 4 0 3 B1S6 Ae COM.F FLAGS 3 $788 | 

FEA 63 ; 0 AL AL+ 3 478 

FO7E CF 0 FB 03 CALLS #0, CHECK_EOF_BLOCK : 4787. 

04 0058D 51$: RET : 4788 | 


; Routine Size: 1422 bytes, Routine Base: CODE + 166F 


| 
| 
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RESTORE_ERROR = handle write errors 73007138 ey BACKUP. SRCIRESTORE .B32:1 . (19) 
3 47 1 ZSBTTL "RESTORE_ERROR = handle Ht errors’ 
3 of : ROUTINE RESTORE_ERROR(BCB): NOVALUE= 
; 4792 1 S44 
3 1598 1 $ 
; 4794 1 ! FUNCTIONAL DESCRIPTION: 
: Fes ogee : This is the error action routine for asynchronous writes. 
3; 3261 £398 1 ! INPUT PARAMETERS: 
3 96 4798 1! BCB = BCB on which the error occurred. 
3; 326 4799 1! 
3; 3264 2800 1 ! IMPLICIT INPUTS: 
3: 3265 4801 1! NONE 
3 66 oaes s 
: 6 480 1 ! OUTPUT PARAMETERS: 
; 3268 ett} 1! NONE 
3; 3269 4805 1! 
; 3270 eae 1 ! IMPLICIT OUTPUTS: 
3: 3271 4807 1! NONE 
: t¢ 4808 1! 
3; 327 4809 1 ! ROUTINE VALUE: 
3 a 4810 1! NONE 
: 327 4811 1! 
3 6 re 1 ! SIDE EFFECTS: 
3: 327 4813 1! NONE 
3; 3278 4814 1! 
: 3279 4815 1 !<- 
3; 3280 ret | 1 
3 $B) 481 BEGIN 
3 32 ¢ 4818 MAP 
: 328 4819 BCB: REF BBLOCK; ! Pointer to BCB 
3 see $330 LOCAL 
3; 3285 4821 EC: REF BBLOCK, ! Pointer to record 
3 1] t8ss STATUS, ' Status variable 
3; 3287 48 10SB: VECTORC4,WORDJ; ! 1/0 status block 
3 $o8 eee 
; 330 i Point to the record on which the error occurred. 
3 332 4828 REC = .BCBCBCB_RECORD); 
: $50a 1880 
; $9 4831 ! Loop for all blocks in the record reissuing the writes and reporting 
3 38 re § any errors that occur. 
$ 4 rt r INCR yet OCk FROM 0 TO .RECCBRHSW_RSIZEJ*-9 - 1 DO 
: P 4 STATUS = C$Q10W( 
3 P 4 FUNC=.OUTPUT_FUNC, 
: P 4 3 CHAN=.OUTPUT_CHAN, 
3 P 4 10SB=10SB8, 
: 4 : ? Pi=,.REC + BRHSC_LENGTH + .XBLOCK*9, 
3 = 
: 4 é P3=,RECCBRHSL_ADDRESS) + sXBLOCK); 
: one If .STATUS THEN STATUS = .10SB(0); 
3 rt re} co STATUS THEN IF NOT FIND_BADBLOCK(.OUTPUT_BAD, -RECCBRHSL_ADDRESS] + .xXBLOCK) 


ee A ES <TR 5 Secdnemiand 
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REST Restore a save set 16-Sep-1 21:13 AX-11 Bliss-32 V4.0-742 Page 110) 
yO. -000 RESTORE_ERROR = handle write errors ep aets ri a ee EBACKUP SRe RESTORE BSoe1 oe iy 
3 3310 4 FILE_ERROR( 
; 1 4 of BACKUPS_RITEBLOCK, 
; 18 4 rk -RECCBRASL_ADDRESS] + .XBLOCK, 
: 3314 4850 *STATUS); 
5 15 4851 END; 
: 3316 4852 1 END; 
OOFC 00000 RESTORE_ERROR: | 
<WORD Save R2,R3,R4,R5,R6,R7 : 4790. 
57 00000000" Fe 9€ 00002 MOV QuTPuT FUNC, 7 : | 
3 8 C2 00009 SUBL SP : 
0 04 AC dO 0000C OVL CB, RO > 4828 | 
2 10 Ag 0 00010 MOVL  16(RO), REC : 
6 6 ¢ 0014 MOVZWL (REC) R6 ; 4834 
56 $ fF? «BF 0017 ASHL #9, R6, R ; | 
01 F 001¢ MNEGL #1, XBLOCK + 4842 | 
0092 0001F BRW 5$ F 
50 53 09 78 00022 1$: ASHL «#9, XBL OCK RO : 
5} 10 Adke 3 000 6 MOVAB 16(RO)CRECS, R1 F 
50 009A C7 D 90 B MOVL guTPut CHAN, RO ; 
OOO1FFFF BF 50 D1 00 9 CMPL 0, #131071 : | 
7 1F 0003 BLSSU : | 
E 7¢ 90039 CLRQ = =(SP) : | 
7E 04 00038 CLRL -(SP) 3 
54 53 08 A2 C1 0003D ADDL3 &8(REC), XBLOCK, R4 : 
54 bp 0042 PUSHL : 
7E 0200 ef C 00044 MOVZWL #512, -(SP) : | 
1 DD 00049 PUSHL 1 : | 
7E 7C 00048 CLRQ.  =(SP) : 
20 AE 9F 00040 PUSHAB 10SB : | 
7E 67 9A 90050 MOVZBL OUTPUT_FUNC, -(SP) F 
50 DD 9005 PUSHL RO : 
7E D4 00055 CLRL. = SP) ; 
000000006 00 of FB 00057 CALLS #12, STA_QIOW : | 
é 1 O05 BRB 3$ : 
E 7C 00060 28: CLRQ  =(SP) : 
7E D4 00062 CLRL.  =(SP) F 
54 53 08 A2 C1 00064 ADDL3 8(REC), XBLOCK, R4 : 
54 bp 0069 SHL : | 
7E 0200 8F 3¢ 0006 MOVZWL #512, -(SP) : 
1 OO it SHL RI 3 
E 7C 00072 LRQ. = SP) : | 
20 AE 9F 00074 PUSHAB 10SB : 
7E 9A 00077 MOV ZBL OUTPUT _FUNC, -(SP) : 
0 DD OO07A PUSHL R ; 
E D4 0007C CLRL asp) ; 
000000006 9F F 7 CALLS #12, a#SYS$Q10W : 
55 D 0 3$ MOVL RO, STATU 3 
g ee S en ee — 
3 $$ HW ae BLBS STATUS, 5$ ; 4844 
4 DD 00097 4$ PUSHL R ; | 


RESTOR Restore a if-S6 Sep-1984 1: AX-11 Bliss-32 V4.0-74 
WO 000 RESTORE ERROR = handle write errors rRee eee Oey Pane Ot leg a 2e yee e Tse, 
00B2 ¢7 DD PUSHL 9 y PUT BAD 
000000006 99 re ; CALLS ‘ F IND_BADBLOCK 
BB OOOA PUSHR Ba, RS 
0043 DD OOOA PUSHL OUTPUT FAB 
000000006 8F DD OO0A PUSHL HBACKUPS_ WRITEBLOCK 
000000006 99 e F AD CALLS #4, FILE~ERROR 
1 6 F B4 5$: AOBLSS R6, yBLOCK 6$ 
9 B8 RET 
FF66 31 000B9 6$: BRW 1$ 


; Routine Size: 188 bytes, Routine Base: CODE + 1BFD 
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Rest 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 
REST $7308713 4 BO eaide {BACKUP SRe RESTORE .832;1 
; 331 4 1 ZSBTTL "RESTORE_ONE_RECORD = restore save set record’ 
3 i ? 2¢ ! GLOBAL ROUTINE RESTORE_ONE_RECORD(REC,BCB): NOVALUE= 
3 1 4 28 1 fe4 
3 ¢ 4857 1! 
3 4 28 1 ! FUNCTIONAL DESCRIPTION: 
$ 3 re fe : : This routine restores the contents of one save set record. 
; § 4861 1 ! INPUT PARAMETERS: 
: rere} 1! REC - Pointer to record. 
3 : : o7 : BCB - Pointer to BCB. 
3 0 4865 1 ! IMPLICIT INPUTS: 
3 1 ones 1! NONE 
3 3 4867 1! 
; re 8 1 ! OUTPUT PARAMETERS: 
3; 3334 4869 1! NONE 
3 HH 4870 1! 
3 6 4871 1 ! IMPLICIT OUTPUTS: 
: 3337 $376 1! NONE 
3; 3338 4873 1! 
3; 3339 4874 1 ! ROUTINE VALUE: 
3; 3340 4875 1! NONE 
3 3341 4876 1! 
3 306 4877 1 ! SIDE EFFECTS: 
3; 334 4878 1! NONE 
3 3344 4879 1! 
3; 3345 ett 1 !e- 
3 3346 4881 1 
3 3347 488 BEGIN 
: 3348 488 P 
: 3349 4884 REC: REF BBLOCK, ! Pointer to record 
3; 3350 4885 BCB: REF BBLOCK; ! Pointer to BCB 
3; 3351 4886 
3 $26 4887 
3 335 4888 2 OUTPUT_BCB = .BCB; 
3 3354 4889 
3; 3355 4890 
; 3356 4891 2 CASE .RECCBRHS$W_RTYPE) FROM BRHSK_SUMMARY TO BRHSK_FILE_EXT OF 
3 3357 489 SET 
3; 3358 489 
3; 3359 4894 
3; 3360 4895 COUTRANGE): 
: 3) 4 38 0; 
; $6 489 
; 307 4898 
3 4899 CBRH$K_VBN, BRHS$K_LBN): 
3 <0? £390 BEGIN 
; 369 +308 ! Test for an unexpected change in file ID. This indicates that some 
; 3368 é ' save set data has been lost. Close the current output file, if any, 
3 i $3he : and, if selected, create the file from which this data came. 
: 3 490 IF CHSNEQ( 
3 36 490 FIDSC_LENGTH, OUTPUT_ATTBUFCFAR FID) 
i $373 4908 ent JOSCILENGTH, BBLOCKE.BCBCBCB_BOFFERS, BBHSW_FIDJ) 
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VOe-000 ORE _ONE RECORD = restore save set record if Sep-1984 OO e088 BACKUP.SRC JRESTORE .832; 1 ’ (20 
BEGIN 
LOCAL 
BUFFER: REF BBLOCK; ! Pointer to buffer 


! Warn the user that this has occurred. However, if this is a 
} continuation tape verify pass, it is expected to occur. 


NOT “ur PUT FLAGSCOUTPUT_V FURST) OR 
NOT .COM_FLAGSCCOM VERIFYING 
NBBLOEKES BCBLBCB_BOFFERJ, BBHSW_VOLNUM) LEQ 1 


FILE ERROR ( 
BACK re f IDERROR. 
OUTPU FAB); 
Close the current output file, if any. 


CLOSE_RESTORE(); 


Dl ek el el lk ed ke el le ed ek eke lk Sk a ek ee ek ek 
DOOOOOOODOOODOOOOOOOOOOOOO Mme 


WWII AIP PIPIPIPININPINININD 2 2 OO OO = 


MEFWUN CO OONOUE AN “OO OONOUSWNO -17 


Avoid situations where we should not restore the file. 


- 
o 
a 
oo 

yo? oY oY oy oY ot ot ot ot ot ot ot ot ot ot et et et et et et tt tt at tt tt kt tk tk et et tt et et tt et et tt 


4934 
493 
4936 (.RECCBRHSV_DIRECTORY] AND NOT .QUALCQUAL_IMAG]) OR 
4937 QUAL CQUAL -VOLU) OR 
QUAL CQUAL ~INCRI 

4939 N 
4940 RETURN; 
is 
494 ! Synthesize the file attribute buffer from the information in the 

409 4944 i save set block header. 

410 4945 i 

411 4946 BUFFER = -BCBLBCB BUFFER); 

ale 4947 CHSFIL R_LENGTH, output ATTBUF); 

41 4948 OUTPUT “ATEBUEE FAR R_F1D_NUM = TBUFFERLBBHSU_F1D_NUM]; 

3414 4949 OUTPUT” TTBUFCFAR-FID"SEQ] = .BUFFER BBHSW FID"SEQ]: 

3415 4950 QUTPU “Ants BUF CFAR™ F1D- RVNW) = .BUFFERCBBHSO FID _RVNI; 

3416 4951 Cue W7LENGTH] = . (BUFFERCBBAST FILENAME) <0 8> 

417 495 oUTPU FILMA DSCSA~POINTER) = BUFFERCBBHST FILEN E) + 

418 495 ECATTREFATSB_ aryeed = .BUFFER BBHSS RTYPEI; 

41 4954 RECATIR FATSB-RATTRIB) = sBUEFER BBHSB_RATTRIB); 

420 4955 OU TPU ECATTRCFATSW_RSIZE) = .BUFFERCBBHSW RSIZE}; 

421 4956 OUTPUT ~RECATIR FATSL-EFBLK] = ROT(BUFFERCBBHSL FILESIZE] + 1, 16); 

4 : 4957 OUTPUT” REC CATTREFATSB HE = .BUFFERCBBH$B_BRISIZE); 

4 4958 OUTPUT"RECATTRLFAT$B VFCSI F = .BUFFERCBBHSB ve CSIZE : 

424 4959 oe TPUT “RECATIR FATSW MAXREC = .BUFFERCBBHSW MAXREC): 

4 5 4960 OUTPUT“ATTBUFCFAR_FICESIZE) = .BUFFERCBBHSL_FILESIZE); 

427 496 

428 496 ! Determine if the new file is selected, and if it is, create 

429 4964 i or open it. 

430 4965 i 

431 4966 IF INITIALIZE_AND_SELECT() 


naa 
E88 
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ONE RECORD = restore save set record ige}e Sep-1986 90:25 :26 BACKUP. SRC JRESTORE .832;1 a (20) 
THEN 
BEGIN 
CREATE_OR_OPEN EILEC): | 
IF .OUTPUT FLAGS hte et EN] 
oe THEN OOTPUT_FLAGS OOTPUT IMPLICIT] = TRUE; 
END; i 


If special /INCREMENTAL directory processing is enabled, do it. 
e -OUTPUT_FLAGSCOUTPUT_INCR_DIRJ 

INCREMENTAL _DIRECTORY(.RECCBRHSW_RSIZEJ, .REC + BRHSC_LENGTH); 
! If the NONSEQUENTIAL flag is set in the record header then 
set our internal flag 
IF .RECCBRHSV_NONSEQUENTIAL] 

OUTPUT_FLAGSCOUTPUT_NONSEQ_IN] = TRUE ; 


a file from which this data came is selected, write the 
' data. 
! 
IF .OUTPUT_FLAGSCOUTPUT_OPEN) 
THEN 
BEGIN 
LOCAL 
10SB: VECTOR(C4,WORDJ, ! 1/0 status block 
THIS_MINVBN, ! Smallest block number 
THIS_MAXVBN, ' Largest block number 
THIS BLOCKS, ' Blocks in current record 
STATOS; ' Status variable 


H ; Compute the smallest and largest block numbers in this record. 


inls _MINVBN = REC BRHSL_ADDRESS]; 
THIS-BLOCKS = . nee BRHSW-RSIZE] * -9; 
THIS_MAXVBN = § RINVEN + THIS _BLOCKS - 1; 


Make sure that the block number is at least as large as 

next block number we are expecting. However, if the NONSEGUENTIAL 
flag is set in the record header accept the error. “this lag 

is set by the HSC when it performs it's own backup (PHYSICAL saveset) 


F (. pits MINVBN LSSU .OUTPUT_BLOCK) AND 
T .OOTPUT_FLAGSCOUTPUT_NONSEQ_INJ 


1 
i 
i 
i 
i 
i 


EGIN 
pice 
BACKUPS. VBNERROR, 


-OU 
.THIS_MTNVBN, -OUTPUT_BLOCK=-1); 


-—— javanbetageeattabiinStendenamitieSoapdien 
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ast Restore a save set 1§-Sep-1984 90:71:13 ore, Bliss-32 V4.0-742 
v04- RESTORE ONE RECORD = restore save set record “Sep-1984 21:46:26 BACKUP. SRC JRESTORE .832;1 
; 3489 4 4 END; 

3 re 5 : 

; 138 : & : Make sure that no blocks were skipped. However, if this is 

3 349 8 4 : the first data record in a continuation cope verify pass 

> 34946 029 4 ; eccept the error. Accept the error if /VOLUME is specified. 
; 3495 030 4 ! If the NONSEQUENTIAL 

; 38 031 4 ! flag is set in the record header accept the error. This flag 
; 188 8 ¢ ? is set by the HSC when it performs it's own backup (PHYSICAL saveset) 
3; 3499 5034 4 IF 

; 035 4 NOT .QUALCQUAL_VOLU] AND 

; 1 0 $ 4 .THIS_MINVBN GTRU ,OUTPUT_BLOCK AND 

; 350 037 § (NOT [OUTPUT ELAGSCOUTPUT V_FIRSTJ OR 

; 350 O36 5 NOT .COM_FLAGSCCOM VERIFYING) OF 

3 3504 039 4 -BBLOCKC.BCB(BCB_BOFFEF J, BBHSW_VOLNUM] LEQ 1) AND 

3 a3? Bao : NOT .OUTPUT_FLAGSCOUTPU1 _NONSEG_INJ 

; 209 epe6 BEGIN 

3; 3508 504 FILE ERROR( 

3 299 5044 BACKUPS_VBNMISSING, 

; 3510 5045 : eOUTPUT_ 

3 3511 5046 -OUTPUT“BLOCK, .THIS_MINVBN-1); 

; aig 5047 4 D; 

3; 351 5048 4 

3; 3514 5049 4 

; 3515 5050 4 : Make sure that the upper Limit does not exceed the boundaries 
; 3516 5051 4 ! of the file that we were expecting. If it does, do not process 
; aif 2028 ? : any blocks beyond the boundary. 

3 3519 5054 4 IF _.THIS_MAXVBN GTRU .OUTPUT_MAXBLOCK 

; 3520 5055 4 THEN 

; 3521 5056 5 BEGIN 

3; 35 ; 5057 5 FILE_ERROR( 

3 33 5058 5 BACKUPS_VBNPASTEOF, 

; 3524 5059 5 -OUTPUT_FAB 

3 3525 5060 5 -OUTPUT-MAXBLOCK+1, .THIS_MAXVBN); 

3; 3526 5061 5 THIS_BLOCKS = MAX(O0, .OUTPUT_MAXBLOCK - .THIS_MINVBN + 1); 
3 3527 2068 4 END; 

3; 3528 50635 4 

; 263 5064 4 

3 22 5065 4 ! If the data had an error when it was saved, report the fact. 
3 23! 2096 : Omit the report for a disk-to-disk operation. 

; 23 5068 4 IF .RECCBRHSV_BADDATA] AND NOT .QUALCQUAL_IF11] 

; 23¢ 5 4 THEN 

3; 3535 070 4 FILE _ERROR( 

; 3536 071 4 BACKUPS$_BADDATA, 

3 3537 2076 4 -OUTPUT_FAB, 

3 35 073 4 . THIS_MINVBN) ; 

3; 3539 074 4 

3: 3540 344 4 

3: 3541 16 & IF ,QUALCQUAL_COMP] 

; 2¢¢ 077 4 THEN 

3 354 378 : BEGIN 

3 3544 07 : , 

3; 3545 080 5 ! For a compare ope*ation, read the corresponding blocks from 
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meron; = sRettare age Sep BL isg-32 V4. 0-742 


! the output medium into the compare buffer. f an error 
: occurs, re-execute the read one block at a time reporting 


SISSY 
. at 


| 
a@ save set 1 2:21:13 A ° 16 | 
_ONE_RECORD - restore save set record b-Sep-1984 90 eid (BACKUP SRE RESTORE .832;1 age 505 


e 
E 
: $546 a 
4 i 
; th) 0 the errors. 
; 3550 Pp 5085 STATUS = C$Q10W( 
; 2 i P 50 6 FUNC=. INPUT FUNC, 
; ¢ P 50 CHAN=.OUTPUT_CHAN, 
3 2 P 5088 10SB=10SB8 
; 3554 P 089 P1=. COMPARE BCBLBCB BUFFER] + BBHSC_LENGTH, 
3 3555 P 5090 pg=- THIS BLOCKS “95 
; 336 091 P3=, THIS MINVBN); 
3 22 09¢ IF .STATUS TREN STATUS = .10SB[0); 
: 332 $92 Bae: 
: 3560 095 6 BEGIN 
; 361 096 5 INCR XVBN FROM 0 TO .THIS_BLOCKS=1 DO 
: 268 P 2098 7 STATUS = C$Q10W( 
: 3564 Pp 5099 7 FUNC=. INPUT FUNC, 
 3eee p aioy > inepeioeaee mone 
: 267 P 3108 f P1= COMPARE BCBLBCB_BUF FER] + BBHSC_LENGTH + .XVBN‘9, 
4 s 
; 3268 5104 7 BS REECBRHSL ADDRESS] + .XVBN); 
: 3570 5105 7 IF .STATUS THEN STATUS = .10SBLO); 
; 371 3106 , LF NOT «STATUS THEN IF NOT FIND_BADBLOCK(.OUTPUT_BAD, .RECCBRHSL_ADDRESS] + .XVBN) 
; 278 5108 7 FILE_ERROR( 
Be BMS SAE gO CK 
: 3576 5111 7 “RECCBRASL_ADDRESS] + .XVBN, 
3 3377 3118 7 *STATUS); 
: 3578 511 g END; 
; 3579 5114 END; 
: 3aB9 ae 8 
; 3582 5117 5 ! Compare the save set data to the output medium data, 
‘ 3584 2118 : } reporting discrepancies. 
3 385 3120 5 iNCR XVBN FROM 0 TO .THIS_BLOCKS-1 DO 
; 289 3128 6 IF CHSNEQ( 
; 3588 5123 6 312. .REC + BRHSC_LENGTH + .XVBN*9, 
; 389 3138 6 con” , COMPARE _BCBIBCB_BUFFER] + BBHSC_LENGTH + .XVBN*9) 
: 591 31 4 6 IF NOT FIND_BADBLOCK(.OUTPUT_BAD, .RECCBRHSL_ADDRESS] + .XVBN) 
; 298 2155 6 FILE_ERROR( 
3 age 2i¢7 6 BACKUPS VERIFYERR. 
: 296 H 1 6 “ti ;RECCBRASL_ADDRESS] + .XVBN); 
: 3598 1 § © — 
8206 i3$ ¢ LSE GIN 
+ 3601 1 ; 
3; 3602 51 $ ! Writing to an output file. 
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vOL-000 RESTORE ONE RECORD - restore save set record = 3ep= 1984 99 24:28 BACKUP. SRCIRESTORE .8325 1 (20 
! 

; S 135 ; BCBLBCB_RECORD] = REC; 

¢ 3002 ic) 2 BEGIN 

: 8$ 142 6 LOCAL 

: 3608 128 LIMIT 

: 3609 144 é RLIMIf: REF BBLOCK; 

: 3610 ice 8 FFER] + .BCBCBCB_SIZE); 

Bh RSS ETA" SGB00C8-RUEEas GRTBESCE-BAEE: ecru 

: i§ 5148 6 IF gRUIMIT GEQA .LIMIT 

: 149 6 

i $15 156 § cise 

; PE] EGL BRHSK_NULL AND 

: $e 155 § -RLINITCORWSU RTYPED EOL BRHSE MULL AN ceog samt 
: 3619 2182 ; END 

; 20 5155 THEN 

: 3621 156 6 BEGIN 

: ¢ 12 e ! This is the last record in the current buffer. 

: 3 4 2128 6 Execute the write asynchronously. 

: 5 160 6 i 

: = C$Q10¢ 
Gi HR sar gaa ne, 

: 3628 Pp 2188 6 CHAN=. OUTPUT” CHAN, 

: 3629 ~ %. Pp 5164 6 EFN=BCB 5 WRITE 

: 3630 “ » 21ee 6 10SB=BCBLBCB 108), 

: 3631 P 5166 6 P1=.REC + BRASC_LENGTH, 

: 363 P 5167 6 Pes THIS_BLOCKS~* 9, 

: os 168 6 P3=. THIS MINVBN); 

: 3634 2188 6 IF NOT *STATOS 

: 3038 2159 3 FILE_ERROR( 

: 3038 5172 6 GACKUPS_WRITEERR + STSSK_SEVERE, 

: § .OUTPUT FAB, 

; 3 at; 3 gSTATUST ne 

: 3ee8 3108 3 ScBtRcBcPAIt “ACID = néstone ERROR; 

: ong ates 3 PSOUETTOLB. Jurege ante ET GS: 

ORD S ase 

: ecg S181 é BEGIN 

: 8 S18 $ ! This is not the Last record in the buffer. Execute the 
; 649 5184 6 i write synchronously. 

: 3650 185 6 i aatarie 

+ 363) 4 Hf 3 STATUONC= OUTPUT _FUNC, 

: o2g P 31 6 CHAN= - QUTPUT_CHAN, 

: 3038 B19 P1=.REC * BRHSC_LENGTH, 

3 365 P 2131 6 pgs. THIS BLOCKS = 4. 

i Hee 198 6 STATUS TREN STATUS = . 10SBC0); 

: $38 5138 é if aT TATUS THEN RESTORE_ERROR(.BCB); 


——_ —-—_-——--- ——-——----—---- -  e - 
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VOe-008 ESTORE_ONE_RECORD = restore save set record ~Sep-19 4 eae} (BACKUP-SREIRESTORE 832-1 . (20) 
1 END; 
1 END; 
: 
1 } Update the output block number past this data record. 
OUTPUT_BLOCK = .THIS_MAXVBN + 1; 
END; 
Indicate no longer the first data record of a verify pass. 
OUTPUT _FLAGSCOUTPUT_V_FIRST] = FALSE; 
CBRHSK_SUMMARY): 
BEGIN 


OCAL 
SAVE _ATTBUF : BBLOCKCFAR_LENGTH); 


: Save the contents of the attributes buffer. This is necessary 
! because the BACKUP summary record on a continuation tape is usually 
interspersed with file data records. 


CHSMOVE(FAR_LENGTH, OUTPUT_ATTBUF, SAVE_ATTBUF); 


! Get the attributes and save the volume set count, volume set name, 
and creation date of the save set for later use. 


GET_SUMMARY ATTRIBUTES( REC) ; 
UF i PUNE CQUAL_OF 11 


N 
COM_O_SETCOUNT = .OUTPUT_ATTBUFCBSR_NVOLS); 
COM“O“BSRDATEO] = .(OUTPUT_ATTBUFCBSR_DATE)); 

COMZO“BSRDATEL1) = .(OUTPUT-ATTBUFLBSR-DATEJ+4); 


-QUALCQUAL_VOLU AND 
-QUALCQUAL-VOLU_VALUE) GTRU .COM_O_SETCOUNT 


N 
SIGNAL ( 
BACKUPS$_NOSUCHRVN, 2 
-QUALCQDAL_VOLU_VALUEJ, .COM_O_SETCOUNT); 


CHSCOPY ( 
-BBLOCKCOUTPUT_ATTBUF ie ng thet DSC$W_LE 
Pam bee OUTPUT_ATTBUFCBSR_VOLSETNAM), DSCSA_PO 


HM2$S_STRUCNAME 
ate COM_O~STRUCNAME 5; 


eth bbb ebb eh bed bebb ebb bedbebb eb bedbbndhpih bpp babbabbabbabiabhah bbe bobh Ab Ab Ab Ab sbidh Ah Ah Ab Ab Ab Ab dh dh Ah Ab AL AL AL AD AL AL AL AL AD AL AL A OD 


RIPIPONIPINIPONINININININININIPIPIPPIPINOPIPIPUPININPIPINIPONINIPINPYPUNONy: 


COOOCOCCOSO 0000 vn 
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VOe-008 RESTORE_ONE_RECORD = restore save set record 30071 38% 90: 6:26 EBACKUP. SRE RESTORE .832; 1 9°20). 
: ah 5 H Restore the attribute buffer. 
; 13 4 CHSMOVE (FAR_LENGTH, SAVE_ATTBUF, OUTPUT_ATTBUF); 
3 12) 6 : 
: 37 : 28 CBRHSK_VOLUME): 
3 3 23 BEGIN 
: 37 $ 61 ! If this is an image restore or image copy, initialize the output 
; , ; $¢ : volume. 
; 129 64 GET_VOLUME_ATTRIBUTES( REC); 
> 3731 66 .QUALCQUAL_IMAG] AND 
3 37 ; 6 NOT .QUALCOUAL_COMP) AND 
3 37 5268 4 (NOT .QUALCQUAC_VOLU] OR 
3; 3734 5269 4 -QUALCQUAL_VOLO_VALUE] EQL .OUTPUT_ATTBUFCVSR_RVN] OR 
H re? 2 A & THEN -QUALCQUAL_VOLU_VALUE] EQL 1 AND -OUTPUT_ATTBOFCVSR_RVNI LEQU 1) 
: 3737 2878 3 STA_INIVOL(); 
3: 3738 2 7 ND; 
; 3739 74 
3; 3740 5275 
3 3741 5276 CBRHS$K_FID): 
3 5278 BEGIN 
; ah 5279 : Check the structure level word. If this is an image restore or 
3 3745 5 80 ! image copy, initialize the file headers that are described by 
3 vee 2 H this record. 
; rs 5288 if jBBLOCKCRECCBRHSC_LENGTH.0.0,03, BSASW_STRUCLEV] NEQ BBHSK_LEVEL1 
: 3750 35R SIGNAL (BACKUPS_INVATTSTR) 
3 3751 5286 LSE 
; Pee 5287 
3; 375 5288 on Ta, IMAG] AND 
3 3754 5289 NOT .QUALCOUAL_COMP) AND 
3; 3755 5290 4 (NOT .QUALCQUAC_VOLU] OR 
3; 3756 5291 4 QUAL EQUAL VOLO _VALUE EQL .OUTPUT_ATTBUFCVSR_RVN] OR 
3 el 2 3¢ 4 ane ~QUALCQUAL~VOLU-VALUEJ EQL 1 AND .OUTPUT_ATTBOFCVSR_RVNJ LEQU 1) 
: 3759 5294 3 STA_INIT_HDRS (RECCBRHSC_LENGTH,0,0,0]); 
3; 3760 2 95 END; 
3; 3761 38 
3 166 9 
3; 376 38 CBRHSK_PHYSVOL): 
: 166 60 BEGIN 
: 766 01 ! Get the attributes. However, on a verify pass, do not reprocess 
3 ror 8 } the record. 
: 3769 304 GET_PHYSVOL_ATTRIBUTES(.REC); 
3 Aa 5 IF TCOM_FLAGSCCOM_VERIFYING) THEN RETURN; 
: 377 : ! If the NONSEQUENTIAL flag is set in the record header then 
3; 377 5308 ! set our internal flag 
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: 3774 09 : 
; he 19 $f eg RECCORNSY NONSEQUENTIALI 
; i ig OUTPUT_FLAGSCOUTPUT_NONSEQ_IN] = TRUE ; 
: its 13 } Make sure the device geometry matches. 
; 3781 1 
3; 378 i$ -OUTPUT_ATTBUF ae de NEQ .OUTPUT_DEVGEOMCDGM_SECTORS] OR 
; 378 8 -OUTPUT_ATTBUFLPVA_TRACKS we .OUTPUT_BEVGEOMCDGM TRACKS] OR 
3: 3784 1 -OUTPUT_ATTBUF PUA hath oted NEQ ,OUTPUT_DEVGEOMCBGM CYLINDERS] OR 
: 786 Y -OUTPUT_ATTBUF CPVA_MAXBLOCK] NEQ .OUTPUT_BEVGEOMCDGM_PAXBLOCK] 
3 187 : FILE_ERROR(BACKUPS_PHYDEVGEO, .OUTPUT_FAB); 
: 3789 i 
; 3790 5325 : Ensure that there are no bad blocks on the output device that were 
:; 3791 2 $ : gore blocks on the input device. Do this by matching each bad LBN 
3 re ! in the output device data against the attribute record. If the LBN 
: Let 23 } is not found, it is an error. 
3 3795 33 9 INCR I FROM 0 TO .OUTPUT_BADCBAD_NUMDESCJ-1 DO 
; 3796 : o BEGIN | 
: 3797 3 ¢ & LOCAL Q: REF BBLOCK; 
3; 3798 33 4 Q = OUTPUT _BAD(BAD DESC]; 
: 799 ease ¢ vonag Br FROM .QCBAD_LBN] TO -QCBAD_LBN)+.QCBAD_COUNTIJ-1 DO 
i 3b 5336 5 LOCAL P: REF VECTOR; 
; 80 2337 5 P = .BBLOCKCOUTPUT_ATTBUFCPVA_BADBLOCK], DSC$A_POINTER]; 
3800 8339 6 1F BEGIN 
; 3805 5340 6 WHILE .P LSSA 
; 3806 5341 6 -BBLOCKCOUTPUT_ATTBUFCPVA_BADBLOCK], DSC$A_POINTER) + 
; 3807 334¢ 6 -BBLOCKCOUTPUT—ATTBUF CPVA_BADBLOCK], DSCS$W7LENGTH] 
; 509 ah : BEGIN 
; 3810 5345 7 F 
; 3811 2306 7 -LBN GEQU .PCO] AND 
: aig tot -LBN LEQU .PLOJ+.PC1)-1 
: 3814 3349 7 EXITLOOP FALSE; 
3 312 5350 7 P= .P + 8; 
eae ao 
; 3818 5 THEN 
; 3819 a32¢ 6 BEGIN 
; 3820 55 6 FILE_ERROR(BACKUP$_BADBLOCK, .OUTPUT_FAB); 
. a 
: : § 3B 4 END; 
3 3824 59 4 Q = .Q + BAD_S_DESC; 
es vo: 
; 5 § ts CBRHSK_FILE) 
; 3830 5365 BECIN 
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LOCAL 
BUFFER: REF BBLOCK; ! Pointer to buffer 


If a file is currently open, close it. 
CLOSE _RESTORE(); 


Get the attributes from the record. 
GET_FILEATTRIBUTES( REC) ; 


» QUAL CQUAL He, AND 
5g SUTPUT AECATIR FATSV_FILEORG] EQL FATSC_SEQUENTIAL 


+> 


SPSS ESSE roc 
DOONOUS WOO VEwn— 
FUFOIV IV SVSUSVSVIUSVIVSVUSUSVSVSVS9 SVS VOSVSVOSVOSTOSIOSUSIOSIOSIOSIOT 


EOF SIZE; 


EOF SIZE = ROT(.OUTPUT REC 
IF .OUTPUT_RECATTREFAT -f 


FBLK], 16); 
Sw F 

HEN EOF SIZE = .EOF 
OUTPUT _ATTBUFCFAR_FILESIZE 


ATT 
FBY 
OF “SIZE 
ESIZE] = 
MINU(.EOF SIZE, .OUTPUT_ATTBUFCFAR_FILESIZEJ); 


(69 C9 Co Cd C9 00 Oo CO Co 
MMMM 
VFWn—OO® 


WAWNWIAWw 


56 END; 
57 BUFFER = SUTOUT SCOT aCe pur rend: 
58 BUF FERCBBHSW_FID-NUM) = [OUTPUT_ATTBUFCFAR_FID_NUM); 
859 94 BUF FERCBBHSW_FID-SEQ] = .OUTPUT_ATTAUFCFAR-FID-SEQJ; 
9 8 BUF FERCBBHSW_FID-RVNJ = .OUTPUT-ATTBUFCFAR-FID-RVNWI; 
86 9 
ne: 9 ! If this is a save verify pass, reassign the channel to the output 
He ; volume if required. 
866 0 IF .COM_FLAGSCCOM VERIFYING] AND .QUALCQUAL_OSAV] 
867 0 THEN ASSIGN_VERIFY_CHANNEL (TRUE); 
is 
870 0 ! Determine if the new file is selected, and if it is, process it in 
se7) . the appropriate manner. 
578 0 IF_INITIALIZE_AND_SELECT() 
7 0 THEN 


BEGIN 
IF .RECCBRHSV_DIRECTORY) 
IF .QUALCQUAL_COMP) 
THEN 
(,QUALCQUAL_ISAV] AND .QUALCQUAL amas) OR 
(.COM_FLAGSCCOM_VERIFYING) AND .GUALCQUAL_OSAV)) 
CREATE_OR_OPEN_FILE()  ! compare directory contents 
! skip directory 


BERR RNE SEES SE PWN BB BBB BB BINA 


& 


TV NIN SSIS ISTE IIIT OH 
Fe ot et et tk ek ke ke te tk eh te eh eh ed hh 


ELSE 
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; 423 4 IF .QUALCQUAL_IMAGI 
3 424 4&4 THEN 
3 : 5 2 ELSE eee OR AOPEN FILES) ! image restore directory 
5 4 ; 4 CREATE _DIRECTORY() ! non-image restore directory 
3 4 : 4 ELSE 
3 4 4 IF 
; 430 BEGIN 
: 431 IF NOT .QUALCQUAL_INCRI 
3 4 THEN TR 
3 4 ELSE SELECT_INCREMENTAL () 
3; 3900 5 2 THEN 
3 4 $ 4 CREATE_OR_OPEN_FILE(); ! compare/restore file 
; o08 4 4 
3; 390 438 4 
3: 3904 439 4 ! Initialize the ACL restoration FIB. 
3 Sone 440 4 ' 
3; 3906 5441 & CHSFILL (0, FIBSC_LENGTH, oc. FIB); ! Reset the FIB 
; 3907 3448 4 ACL_F IBCFIBSV_ NORECORDJ = TRUE; 
: 3908 5443 4 IF + QUAL CQUAL~ IMAG] 
3 3309 5444 4 THEN 
; 3910 5445 5 BEG! 
3 So13 5446 5 ACL_FIBCFIBSW_FID_NUM] = .OUTPUT_ATTBUFCFAR_FID_NUM]; 
: ie 5467 5 ACL-FIB F1BSW.FID-SEQ) = .OUTPUT~ATTBUF FARE 1D- SEQ]; 
: 391 5448 § ACL_FIBCFIBSW_FID-RVN) = OUTPUT “ATTBUF CFAR~F ID-RVNWI; 
: 3914 5449 5§ D 
3; 3915 5450 4 
3 4 | 5451 3 BEGIN 
: 391 2438 ACL_FIB F1BSu_F1D_NUR} = .OUTPUT_NAMCNAMSW_ FID _NUM); 
; 3918 5453 5 ACL_FIBCFIBSW_FID-SEQ] = .OUTPUT-NAMLNAMSW_FID-SEQ]; 
3 a eee ? ack —FIBCFIBSW_FID-RVN) = .OUTPUT_ _NAM NAMSW_ FID_RVNJ; 
; 3921 3456 4 OUTPUT “HLAGstA ACL_ERROR] = FALSE; No error processing ACL yet 
: 92¢ 5457 4 UTPUT-FLAGSCACL-FIRST_TIME] = irue: ' First time through 
3; 39 5458 4 CHSFILE (0 ATL_FIB-DESCR); 
: 3924 5459 4 CL_F18_DESCREDSCSO_LERGTH) ="F IBSC_LENGTH; 
3; 3925 5460 4 ACL_FIB_DESCRLDSCSA_POINTER] = ACL_F1B; 
3; 3926 5461 4 
3; 3927 o786 4 
; , ; ret $ If there is an ACL to restore, restore it. 
; 389 5465 if (.OUTPUT_ACLSEGMENTCDSC$W LENGTH) NEQ 0) 
3 93! 2298 AND ( .COM_FLAGSCCOM VERIFY 
3; 39 § 46 AND (OUTPUT pl Aes OUTPOY T_ OPEN y * sOuTeUT. FLAGSCOUTPUT_INCR_DIRJ 
3; 39 5468 5 Py FLA Meet py tru DIR_OPEN 
: 39 £68 4 AND Not “QUAL QDAL 
3 3935 4 9 4 THEN 
; 39 471 5§ BEGIN 
; 39 an%8 LOCAL 
; 3938 47 hc POINTER : REF BBLOCK Pointer to ACE within ACL 
: 39 474 R-DESC  : BBLOCK te) ACP Attribute list 
: 394 475 108 : VECTOR €4,WORD m0}. t castes block 
3: 394 2078 pranus ' Routine aa & statu 
: 94 47 UMMY_ACL : BBLOCK (8); ! Dummy ACL for delete operation 
3: 39% ati8 ! If this is the first ACL record, delete any existina ACL on 
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3 oF ri H the selected file to avoid confusion. 

: ac9 4 : IF .OUTPUT_FLAGSCACL_FIRST_TIME) 

3; 5948 4 THEN 

3 3949 484 6 BEGIN 

; 930 485 6 OUTPUT _FLAGSCACL_FIRST_TIME] = FALSE; 

: 39 486 6 ATR_DESC Q. .16,0] = 83 

; 93¢ 487 6 ATR-DESCE2,0,16.0] = ATRSC_DELETEACL; 

3 395 488 6 ATR-DESCL4, 3 ,0J = DUMMY-ACL; 

: 39e¢ p sch 6 STATUS = CSQIOW (CHAN = .OUTPUT_CHAN 

5 = = . e 

3 328 P 5492 3 FUNC = ios MODTFY, 

; 3958 P 5493 6 10SB = 10S6 

: 3959 P 5494 6 P1 = ACL_FI6_DESCR, 

; 3960 495 6 P5 = ATR-DESC); 

> 3961 496 6 IF .STATUS THEN STATUS = 7IOSBCO); 

; 96¢ 497 6 IF NOT .STATUS 

3 396 498 6 THEN 

: 3964 499 7 BEGIN 

3 3965 5500 7 FILE_ERROR (¢ 

; 3966 5501 7 BACKUPS_WRITEERR + STSS$K_WARNING, 

; 3967 2908 7 .OUTPUT FAB, 

: 3968 5503 7 ~STATUS); 

: 3969 504 7 OUTPUT_FLAGSLACL_ERROR] = TRUE; ! Note delete failed 

: 3970 505 7 RETURN: 

: 3971 506 6 : 

; 397 3307 5 END; 

3; 397 508 5 

3: 3974 5509 5 ! If any errors occurred deleting or writing the file's ACL, 

3 37? 2219 2 } ignore any further ACL records for the file. 

: 3977 2318 5 iF .OUTPUT_FLAGSCACL_ERROR] THEN RETURN; 

3 3978 5513 5 

; 3444 2213 : Add the ACE's to the selected file's ACL 

: 3981 5516 5 ATR_DESC 9.0.16.0 = ,OUTPUT_ACLSEGMENTCDSCS$W_LENGTH); 

: 98e 5517 5 ATR-DESCL2,0,16.0) = ATRSC_ABDACLENT; 

: 398 5518 5 ATR-DESC 4-0.32.0 = ,OUTPOT_ACLSEGMENTCDSCS$A_POINTER); 

> 3984 5519 5 ATR7DESCL8,0,32.0] = 0; 

: 3985 Pp 3320 5 STATUS = C$Q{0W (CHAN = .OUTPUT_CHAN, 

3: 3986 P 5521 2 FUNC = I10$_MODIFY, 

: 3987 Pp 55 é 10SB = 10S8 

: 39 P 33 3 Pl = ACL_F16_DESCR, 

: 39 4 P5 = ATRIDESC): 

: 3990 33 5 5 IF .STATUS THEN STATUS = 710SBC0); 

: 3991 5 $ 5 IF NOT .STATUS 

: 998 5527 5 THEN 

: 399 528 6 BEGIN 

: 3994 529 6 FILE ERROR ( 

: 3995 530 6 BACKUPS_WRITEERR + STSSK_WARNING, 

: 996 531 6 -OUTPUT-FAB, 

: 399 5 é 6 . STATUS): 

; 3998 533 6 OUTPUT_FLAGSCACL_ERROR] = TRUE; ! Note add failed 

> 3999 534 RETURN: 

: 4000 535 END; 

; 4001 536 OUTPUT_ACLSEGMENTCOSC$W_LENGTH] = 0; =! Note segment added to ACL 
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; 400 7 END; 
3 ¢ 8 END; 
; 4005 40 
; rts 4} Indicate no longer the first data record of a verify pass. 
: ret rk OUTPUT_FLAGSCOUTPUT_V_FIRST] = FALSE; 
3 4 544 END; 
S01 ah 
: 4018 229 CBRHSK_FILE_EXT): 
H rit ee8 BEGIN 
: dois 286 
: £818 22) Get any additional file attributes from the record. 
: 4018 2238 GET_FILE_EXT_ATTRIBUTES (.REC); 
2036 2838 
3; 4021 555 ! If there is an ACL to restore, restore it. 
3; 40 ; 555 ' 
3; 402 2228 4 IF (., OUTPUT Pty SE SneaT ees $W_LENGTH] NEQ 0) 
; shee 22 4 AND (NOT .COM FLAGSCCOM VERIFYING) ) 
3; 4025 260 4 AND (OUTPUT FLAGSCOUTPOT OPEN] OR gOYTOUT FLAGSCOUTPUT, INCR_DIRJ 
3 4026 61 4 OR -QUTPUT FLAGSCOUTPUT_DIR_OPEN ) 
3 4027 285 ; AND NOT .QUALCQDAL_INTE 
3; 4028 56 THEN 
3; 4029 5564 4 BEGIN 
3: 4030 5565 4 LOCAL ; 
3; 4031 5566 4 ACL_POINTER : REF BBLOCK ! Pointer to ACE within ACL 
; 405¢ 5567 4 ATR-DESC : BBLOCK C124, / ACP Attribute List 
3; 403 5568 4 10S8 : VECTOR (4,WORDJ, ! 1/0 status block 
3 4034 5569 4 STATUS, ! Routine exit status : 
: ret #4 a370 : DUMMY_ACL : BBLOCK (8); ! Dummy ACL for delete operation 
: 6039 2278 4 ! If this is the first ACL record, delete any existing ACL on 
3 rt 4 e377 ? the selected file to avoid confusion. 
3 4040 5575 4 IF .OQUTPUT_FLAGSCACL_FIRST_TIME) 
3 4041 2278 4 THEN 
3 ring | 5577 5 BEGIN 
3 404 5578 5 OUTPUT _FLAGSCACL_FIRST_TIME] = FALSE; 
3 4044 5579 5 ATR_DESCLO.0,16,0) = 8; 
3 4045 3380 3 ATRDESC ee 716.0) = ATRSC_DELETEACL; 
3 4046 581 ATR_DESCL4, 3 OJ = DUMMY_ACL; 
; rr t 4 286 2 ATR_DESC(8,0,32,0] = 0; 
> 6049 P 83b : STATUS = C$Q1OW (CHAN = .OUTPUT_CHAN, 
3; 4050 P 5585 5 FUNC = 10$_MODIFY, 
3; 4051 P 4] 5 10SB = 10SB 
: 405¢ p 55 Pl = ACL_FI6 DESCR, 
> 405 588 PS = ATR-DESC): 
> 4054 589 IF .STATUS THEN STATUS = 710SBC0); 
3; 4055 590 : IF NOT .STATUS 
3 rt 591 THEN 
3; 405 235 6 BEGIN 
3; 4058 5593 6 FILE_ERROR ( 
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3% 6 BACKUPS$_WRITEERR + STSS$K_WARNING, 

-OUTPUT "FAB, 

36 é » STATUS); 

9 OUTPUT_FLAGSLACL_ERROR] = TRUE; ' Note delete failed 
235 8 RETURN; 

9 3 

eet 7. 
5600 4 ! If any errors occurred deleting or writing the file's ACL, 
2007 : ignore any further ACL records for the file. 
3605 4 iF .OUTPUT_FLAGSCACL_ERROR] THEN RETURN; 
$607 ? Add the ACE's to the selected file's ACL 
5609 4 ATR_DESCCO.0,16,0] = .OUTPUT_ACLSEGMENTCDSC$W_LENGTH); 

611 4 ATR-DESCC4,0,32,0) = .OUTPOT_ACLSEGMENTCDSCSA_POINTER); 
2618 4 ATR-DESC(8,0,32,0] = 0; 
5613 4 STATUS = C$Qf0W (CHAN = .OUTPUT_CHAN, 
5614 4 FUNC = I10$_MODIFY, 
5615 4 10SB = 10S6 
5616 4 Pl = ACL_F16_DESCR, 
5617 4 P5 = ATR-DESC); 
5618 4 IF .STATUS THEN STATUS = 710SB(0); 
5619 4 IF NOT .STATUS 
2050 4 THEN 
5621 5 BEGIN 
56 ; 5 FILE_ERROR ( 
56 5 BACKUPS$_WRITEERR + STSS$K_WARNING, 
sesh 3 marga 
5626 5 OUTPUT_FLAGSLACL_ERROR] = TRUE; ! Note add failed 
0 oo 
S699 $ OUTPUT ACLSEGMENTCDSCSU_LENGTHJ = 0; ! Note segment added to ACL 
3631 : END; 
2036 
5634 TES; 
5635 END; 


OFFC 00000 SENTRY RESTORE ONE RECORD, Save R2,R3.R4,R5,R6.R7,-; 4854. 
R8,RO,RTO,RTI 3 
FF6C CE 9€ 0000 MOVAB -148(§P), SP ; 
04 AC 7D 0000 MOVO REC. R7 + 4891 
38 DO 000 MOVL 8, OUTPUT_BCB > 4888 
02 AZ? AF 0001 CASEW 2(R7), #1, 787 > 4891 
0487 01 1$: «WORD 42$-1$,- ; 
0580 OO1F 3$-1$.- ; 


| 
| 
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6$-1$,- ; 
$-1$,- : 
47$-1$,- : 
95$-1 : 
59 OC AB $6 Sp08 28 MOV. 12¢RB) : 4908 
50 a9 00000000" éF 06 23 00 : cMPcs as. buteay _ATTBUF +80, 80(R9) : 
00c0 31 00037 BRW $ : 
OE 00000000° EF 01 £1 0003A 3$: BBC #1, OUTPUT_FLAGS, 4$ + 4919) 
06 00000000° FF 03 £1 00042 BBC 43. COM_ELAGS, 4$ : 4920 
1 22 8 } 004A CMPW ST », #1 : 4921 
13 «1A OO4E BcTRU 5$ : 
00000000' EF DD 00050 4$ PUSHL UTP: + 4925. 
000000006 8F DD 00056 PUSHL ACKUPSE F IDERROR : 4923, 
000000006 00 02 FB 005¢ CALLS OR : 
—B0B CCF 00 FB 00063 5$ CALLS . * CLOSES RESTORE : 4930. 
09 04 A? 01 £1 00068 BBC a. (R7)~ 6 + 4936 
01 00000000" EF 03 FO 9006p BBS 3. GUAL*to" 6$ ; 
61 00000000" EF 9 00076 6% BLBC QUAL+14, 7$ + 4937) 
01 00000000" EF 04 Fi ig 7$: BBC #4, QUAL+10, 8$ + 4938 
4 00086 RET : 
56 59 DO 00087 8$: MOVL 9, BUFFER + 4946 
8F 00 6E 00 2C 0008A MOVCS #0, (SP), #0, #144, OUTPUT_ATTBUF + 4947) 
00000000' EF 00091 : | 
00000009" EF 50 Ab DO 00096 MOVL BO(BUFFER), OUTPUT_ATTBUF +80 + 4948 
00000000" EF 54 Ab BO 0009E MOVW  84(BUFFER). OUTPUT =ATTBUF +84 + 4950) 
00000000° EF 5c = AG sO9B (O00A6 MOVZBW 9¢( BUFFER) OUTPUT “F ILENAME : 4951, 
000000" EF 5D 46 A6 OSE ~OODAE MOV 93(R6), OUTPUT FILENAME +4 : 495 
00000000" EF 00OdDC C6 DO 00086 MOVL 220 (BUFFER) OOTPuT _RECATTR + 495 
00E4 66 01 C1 OO0BF ADDL3 #1, 228(BUFFER), RO” : 4956 
00000000' 50 10 9¢ 000C5 ROTL #16, RO, OUTPUT RECATTR+8 ; 
00000000° EF 0060 C6 DO 000CD MOVL 224(BUFFER), OUTPUT_RECATTR+14 + 4957 
00000000" EF 00E4 C6 DO 00006 OVL $228(BUFFER). OUTPUT~ATTBUF +92 + 496 
F2BB CCF 00 FB OOODF CALLS #0, IniTiALize. AND_ SELECT > 4966 
13 50 €9 O00E4 LBC RO, $ ; | 
FECA CF 00 FB 000E7 CALLS CREATE_OR_OPEN_F ILE + 4969 
07 00000000" EF £9 O00EC BLBC Output F LAGS, 9$ > 4970 
00000000" EF 10 88 OOOF BISB2 6, ooTe PUT FLAGS : 4971 | 
0B 00000000' EF 03 al O00F A 9$: BBC #3 ag PUT_FLAGS, 10$ + 4978 
10 A? OF 0102 PUSHAB : 4980 
7E 67 3C¢ 0019 MOVZWL Tee (SP) ; | 
FOE6 CF 02 FB 00108 CALLS #2, [NCREMENTAL _DIRECTORY : 
4 A? 0 gl 0010D 10$: BC #2. 4(R7), 118 7 + 4986 
00000000' a 01 88 00112 BISB2 #1, OUTPUT ELAGS«1 > 4988 
3 00000000" | EF 8 oi 11$: BLBS QufPUT_FLA AGS, 12$ + 4993 
SA 08 a7 00 1 ; 12$: OVL  8(R7), THIS_MINVBN > 5006 
5B 67 ¢ 1 MOVZ2WL (R7), R11 : 5007 | 
55 58 fF? BF 012A ASHL  #-9, R11, THIS BLOC 3 
6E FF ASGA oF 012F MOVAB <-1(fHIS BLOCKS THIS “RINVEN), THIS_MAXVBN ; 5008 
00000000" EF 3A ? ot : CHP THIS_MIRVEN, OUTPUT _BLOC : 5016 
1D 00000000' Ff cs 00130 BLBS § OUTPUT_FLAGS*1, 13$ + 5017 
7E 00000000" EF 1 €3 00144 SUBL3 #1, OUTPUT_BLOCK, -(SP) : 5023 
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SA DD 0014C¢ PUSHL THIS_MINVBN 
99000060" F DD OO014E PUSHL OUT A 
00006 §F oD 134 PUSHL #BACKUP$_VBNERROR 
000000006 0 4 FB 154 CALLS #4, FILE- 
42 00000000" EF £8 00161 13$: BLBS  QUAL+14,715$ 
00000000" EF A pi og CHP THIS MINVEN, OUTPUT_BLOCK 
OE 00000000" EF 01 €1 00171 BBC #1, OUTPUT_FLAGS, 14$ 
06 00000000" Ef 03 £1 00179 BBC 43, COM_FLAGS, 14$ 
1 22 Ad BI 0181 CMPW =s-34(R9) , “#1 
23 1A 00185 BGTRU 15$ 
1C 00000000" EF 8 0187 14$: BLBS § OUTPUT_FLAGS+1, 15$ 
FF AA 9F 0018 PUSHAB <-1(THIS MINVBNS 
00000000°' EF DD 00191 PUSHL OUTPUT_BLOCK 
00000000' EF DD 00197 PUSHL OUTPUT~FAB 
000000006 8F DD 0019D PUSHL #BACKUP$_VBNMISSING 
000000006 00 04 FB 001A3 CALLS #4, FILE~ERROR 
00000000" EF 6— 01 OO1AA 15$:  CMPL _—s THIS_MAXUBN, OUTPUT_MAXBLOCK 
2—E 18 00181 BLEQU 17S 
6E DD 00183 PUSHL THIS_MAXVBN 
7E 00000000" EF 01 ¢1 00185 ADDL3 #1, OUTPUT_MAXBLOCK, -(SP) 
00000000" EF DD 0018p PUSHL OUTPUT 
000000006 8F DD b01¢ PUSHL  #BACKUP$_VBNPASTEOF 
000000006 00 04 Fe 01¢9 CALLS #4, FILE ERROR 
50 00000000" EF 5A C3 00100 SUBL3 THIS_MINJBN, OUTPUT_MAXBLOCK, RO 
50 D6 00108 INCL 
02 18 O01DA BGEQ 16$ 
50 D4 0010C CLRL =. RO 
55 50 DO OO1DE 16$:  MOVL RO, THIS.BLOCKS 
1D 04 AZ €9 OO1E1 17$: BLBC 4(R7), 18$ 
15 00000000" EF 04 €0 O01E5S BB #4, QUAL+15, 18$ 
5A DD OO1ED PUSHL THIS MINVBN 
00000000' EF DD OO1EF PUSHL OUTPOT FA 
000000006 8F DD 001FS PUSHL #BACKUP$_BADDATA 
000000006 00 03 FB 001FB CALLS #3, FIL 
56 00000000' EF D0 00202 18$: MOVL $OUTPUT CRAN, R6 
59 55 09 78 00209 ASHL #9, THTS_BLOCKS, R9 
00000000" EF 95 0020D 1TSTB = QUAL+#8 
03 19 00 13 BLSS 
0183 31 0021 BRW 32$ 
50 00000000' Ef DO 00218 19$:  MOVL COMPARE BCB, RO 
OOOIFFFF 8F 6 01 O02TF CMPL R6, #137071 
29 1F 00226 BLSSU 
E 7C 00228 CLRQ. = =(SP) 
7£ b4 022A CLRL © = (SP) 
7E 59 7D 0022C VO RY, =(SP) 
7E 0c Ad 00000100 ef cl 0022F ADDL3 #256, 12(RO), (SP) 
E 7C 00 LRO = = (SPS 
F8 AD OF OO23A PUSHAB 10SB 
7E 00000000' EF 9A 00230 MOVZBL INPUT_FUNC, (SP) 
6 DD 00244 PUSHL R 
E 04 00246 CLRL. = = (SP) 
000000006 00 ¢ FB 9 48 CALLS #12, STA_QIOW 
11 4f BRB 21$ 
—E 7C 00251 208: CLRQ = = (SP) 
7E pA 0 3 CLRL = = (SP) 
7E 59 7D 00 MOVO =O, ~=(SP) 
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RESTOR Restore a save set IB-ge -1984 2:21:13 AxX-11 Bliss-32 V4.0-74 

Vv 1800 RESTORE_ONE_RECORD = restore save set record ~Sep-19 4 30: 45538 EBACKUP-SRe RESTORE BS3s1 Page 365 
7E 0C Ad 00000100 gf 1 58 ADDL3 #256, 12(RO), =(SP) ; 
re ie Gr toes tae Tate : 
7E 00000000" F 9A 00266 MOVZBL INPUT FUNC, =(SP) : 
E bh OOF CLAY sp) 
000000006 9F 9¢ FB 0 st CALLS ne, a#SYS$Q10W : 
54 0 DO 00278 218: OVL RO, STATUS : 

OA 54 5 0278 LBC = STATUS, 22$ : 5092. 
4 F8 AD 3C 0027 MOV2WL I0SB, STATUS : 

03 54 & 028 LBC STATUS, 22$ : 5093. 

00co «(31 99 8 RW 29$ : | 

52 01 cr 8 22$: MNEGL #1, XVBN + 5096 

0081 31 00288 RW 27$ : 

50 00000000" EF 00 0038 23$:  MOVL COMPARE _BCB, RO + 5104. 

58 52 09 0029 ASHL #9, XVBN, R11 : 
51 00000000' ef DO 00299 MOVL §OUTPUT_CHAN, R1 : 
OOOTFFFF 8F 1 D1 002A0 CMPL Ri, #131071 : 
32 1 OO2A7 BLSSU 248 ; 
i 7C baSag CLRQ -(SP) 3 
7E 04 002AB CLRL_  =(SP) : 
53 52 08 A? C1 002AD ADDL3 8(R7), XVBN, R3 ; 
53 bp 00282 PUSHL R3 : 
7E 0200 8F C 00284 MOVZWL #512, -(SP) ¢ 
50 58 C AO C1 00289 ADDL3 12(R6), R11, RO : 
0100 CO 9F O02BE PUSHAB 256(ROS : 
7E 7C 002C2 cLRG =(SP) ; 
FB AD OF 00264 USHAB 10SB F 
7E 00000000' EF 9A 002C7 MOVZBL INPUT_FUNC, -(SP) ; 
51 DD O02CE PUSHL 1 : 
7E D4 00200 LRL. = (SP) ; 
000000006 00 OC FB 002D2 CALLS #12, STA_Q1OW ; 
30 11 00209 BRB 25$ : 
7E 7C 00208 24$: CLRQ = = (SP) : 
7E D4 00200 LRL_  =(SP) ; 
53 52 08 A? C1 002DF ADDL3 8(R7), XVBN, R3 : 
53 bo O02E4 PUSHL R3 : 
7E 0200 BF 3C 00266 MOVZWL #512, -(SP) : 
50 5B OC AO C1 002EB ADDL3 1gcRO) R11, RO : 
0100 CO 9F O0gF0 PUSHAB 256(ROS : 
7E 7C O02F4 CLRQ ss = (SP) : 
F8 AD OF 002F6 PUSHAB 10SB F 
7E 00000000" EF 9A 002F9 MOVZBL INPUT_FUNC, -(SP) ; 
1 OD . PUSHL R1 3 
E 04 0030 CLRL. = (SP) F 
000000006 9F OC FB 00304 CALLS #12, a#SYS$Q10W : 
54 50 DO 00308 25$:  MOVL RO, STATUS F 

07 34 £9 00305 BLBC STATUS, 26$ : 5105 
54 F8 AD 3C 00311 MOVZWL 10SB, STATUS : 

27 54 £8 00315 BLBS STATUS, 27$ : 5106 
53 DD 00318 26$: — PUSHL ; 
00000000' EF DD OO31A PUSHL OUTPUT _BAD ; 
000000006 99 98 FB 6 9 CALLS #2, F JAD _BADBLOCK ; 
1 c BLBS , 2s ; 

18 8B O0032A PUSHR #*M<R3,R4> > $111 

99000000" i DD 9 S PUSHL OUTPUT FAB : 3110 

0000006 8F DD PUSHL #BACKUP$_READBLOCK : 5108 
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e set ig-Se -1984 00:21:13 AX-11 Bliss-32 V4.0-742 a 
RECORD - restore save set record =3007 1382 90: ai 38 YBACKUP’ SRe RESTORE .832;1 ne 


$4 0 D9 4OF 35$: MOVL RO STATUS 
1 4 € 1 BLBS status, 6$ 
4 DD 0041 PUSHL STATUS 
99000000" F DD 0041 PUSHL OUTPUT _FAB 
0000006 8F DD 410 PUSHL ACKUP$_WRITEERR+4 
000000006 00 ; FB 004 CALLS #3, FILE-ERROR 
20 A p4 040A 36$: CLARE (RB) 
6 A FBI cf : 04 MOVAB RESTORE ERROR, 36(R8) 
A A 90 004 MOVB #2, 10(R8) 
00000000" FF : OF 04 INsQuE (RB), @OUTPUT_WAIT+4 
OOOIFFFF © 8F 56 01 a9444 37$: CMPL RG #131071 
eye dues = ty Ey 
7E 04 00448 CLRL = = ¢SP) 
0608 gF 88 99440 PUSHR #*M<R3,R9,R10> 
—E 7C 00451 CLRQ = = SP) 
F8 AD OOF 00455 PUSHAB 10SB 
51 DD 00456 PUSHL 1 
56 DD 00458 PUSHL 6 
7E D4 0045A CLRL. = = (SP) 
000000006 00 oc FB 004 9¢ CALLS #12, STA_QIOW 
re Ye goes 388: Pera >¢$P) 
7E 04 00467 CLRL = = (SP) 
0608 8F BB 00469 PUSHR #*M<R3,R9,R10> 
7E 7C 00460 CLRQ = =( SP) 
F8 AD OF O046F PUSHAB 10SB 
51 DD 00472 PUSHL R1 
56 DD 00474 PUSHL 6 
7E D4 00476 CLRL. = = (SP) 
000000006 9F OC FB 00478 CALLS #12, a#SYS$QI0W 
i amc mera 
54 8 AD Se 00488 MOVZWL I0SB, STATUS 
07 54 £8 00489 BLBS STATUS, 41$ 
58 DD 0048C 40$:  PUSHL R8 
FAB! CF 01 FB 00486 CALLS #1, RESTORE ERROR 
00000000" EF 6E ong! 1 00493 418: ADDLS i THIS_MARVBN, OUTPUT_BLOCK 
04 AE 00000000° EF 0090 Mi 28 0949 42$:  MOVC3 #144, OUTPUT_ATTBUF, SAVE_ATTBUF 
7 DD 004A PUSHL R7 
000000006 00 01 Fe AB CALLS #1, GET SUMMARY_ATTRIBUTES 
59 00000000° EF 06 8 BBC #6, QUAC+15, 44 
0000000" €F 00000000" EF 4BA MOVE OUfPUT_ATTBUF+114, COM_O_SETCOUNT 
scien Ets ¢t 4} te ae BY res Bove — OUTPUT AT IBUF +56. COM_O_BSRDATE 
00000000" EF 00000000" FF 61 O4D/ CPB ; AL+79, COM_O_SETCOUNT 
7E 00000000" EF 9A 004E4 MOVZBL COM_O SETCOUNT, -(SP) 
7E 00000000' f aA Q4EB MOVZBL QUAC+79, (SP) 
ssosong op SOPPPPONE EL PE Tiere Eat geMcrupS uc 
0c 20 $0000 00° FF 99000000" EF 2c 301 438: moves 0 {put ATIBUF #76. @QUTPUT_ATTBUF +80, #32, - 
00000000" EF 04 AE 0090 +H 28 00818 44% movc3) #144, SAVETATTBUF, OUTPUT_ATTBUF 
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F 14 | 
RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 P 1317. 
- RESTORE_ONE_RECORD = restore save set record g7360 71388 3 fo :86 BACKUP. SRC JRESTORE .832;1 *9° (20) | 
04 O0S1E RET : 4891) 
57 DD OO51F 45$: PUSHL 7 : 5264 
900000006 00 or FB ; 1 CALLS Hl. GET VOL UME ATTRIBUTES : 
4F 00000000" EF 3 E 8 BBC 3. Quac +1 , 48$ : 5266, 
sao, TY bess | Sst i 
22 90000000" EF £9 05 BLBC  QUAL4+14, 46$ + 5268 
00000000° FF A 0053F MOVZBL QUAL #79 RO : 5269) 
00000000" EF 30 8 0546 cP RO, OUTPUT_ATTBUF +66 ; | 
01 00000000° gf Hi O4F CPE QUAL+79, #1 : 5270) 
01 00000000' gf Af §o288 CMPW UTPUT_ATTBUF +66, #1 : | 
8 1A 0055 BGTRU 54 ; 
000000006 00 00 FB 00561 468: CALLS #0, STA_INIVOL > 5272 | 
04 00568 RET > 4891 
0101 «BF 10 A? Bi 00569 47$: CMPW  16(R7), #257 : 5283 | 
OE 13 O056F BEQL 48$ : | 
000000006 8F Dd 00571 PUSHL #BACKUP$_INVATTSTR + 5285 | 
000000006 00 01 FB 00577 CALLS #1, LIBSSIGNAL ; | 
01 00000000" EF 03 EO 009 7F 48S: BBS #3, QUAL+10, 49$ : 5288 | 
00000000" EF 95 00588 49$:  TSTB  QUAL+8 : 5289) 
01 18 0058 50$: BGEQ 51$ ; 
04 00590 RET : 
24 00000000" EF £9 00591 51$:  BLBC QUAL4+14, 55$ : 5290) 
50 00000000" EF 9A 00598 MOVZBL QUAL+79. RO : 5291. 
00000000" €éF 50 B1 0059F CMPW = RO, OUTPUT_ATTBUF +66 ; 
14 13 0056 BEQL ; | 
01 00000000" EF 91 005a8 CMPB QUAL +79, rT : 5292) 
01 13 OOS5AF 52$ BEQL 6-53 : 
04 00581 RET : 
01 00000000" EF B81 00582 53$: CMP QUTPUT _ATTBUF +66, #1 : 
01 18 00589 54$:  BLEQU 55$ : 
04 00588 RET 3 
10 A? 9F 005BC 55$ PUSHAB 16(R7) > 5294 | 
000000006 00 01 FB 005BF CALLS #1, STA_INIT_HDRS : 
04 05¢6 RET + 4891 | 
57 DD 005¢7 56s PUSHL 7 > 5304 | 
000000006 00 01 FB 905¢9 CALLS #1, GET_PHYSVOL_ATTRIBUTES : 
01 00000000" EF 03 Fi 9009 BBC #3, COMTFLAGS, 57S ; 5305 | 
07 04 A? 02 1 00509 57$: BBC #2, 4(R7), 58$ : 5310 | 
00000000" EF bs ODE B1S82 #1. OUTPUT FLAGS#1 : 5312 | 
00000000" €F 00000000° EF 91 Ode 58$: CMB UTPUT_ATTBUF +34, OUTPUT_DEVGEOM ; 5317 
00000000° €F 00000000 fF $4 O3t2 CPB TPUT_ATTBUF +35, OUTPUT_DEVGEOM+1 5318 
00000000" EF 00000000° FF 8} O5FF CMP TPUT_ATTBUF +32, OUTPUT_DEVGEOM+2 : 5319 
00000000" EF 00000000° FF p 060¢ CPL QUTPUT _ATTBUF #24, OUTPUT_DEVGEOM+4 : 5320 | 
90000000" F oD 0619 59$ PUSHL  OUTPUT_FAB : $322 | 
000000006 090. } PB 00635 CALLS MSN FILECERROR e ee 
59 00000000' FF DB bese 608: OVL  @OUTPUT_BAD, R9 : 5330 


14 
Rest t 1B-ge =1984 00:21:13 AX-11 Bliss-32 V4.0-742 Page 132. 
RESTORE_ONE_R cORD - restore save set record 300-1384 3:45:08 EBACKUP. SRC IRESTORE.65251 20) 
54 01 ce 633 MNEGL #1, I F 
00000000" EF 88 €1 OOS 618: ROBL.  S8, OUTPUT BaD. a 2 5333, 
36 04 A gi 64 " -apoe3 4G), (Q),7RO : 3332 
53 FF OA : 64 MOVAB =1(RO), RB : 
62 D0 00649 MOVL (Q), LON ; | 
46 11 0064C BRB 67$ ; 
50 90000000" EF 00 4 62$: MOV OUTPUT_ATTBUF+20, P t 5337) 
0000000" EF ¢ 65 MOVZWL OUTPUT“ATTBUF+16, R5 3 5342) 
55 00000000° FF ¢ 0646 ADDL2 QUTPUT-ATTBUF +20, R5 : | 
65 30 D1 0663 63$: CHL P 5° ; 5341 
60 48 of peek CMPL  LBN, (P) : 5346) 
of 1F 00668 BLSS 4 : | 
51 60 04 AO C1 0660 ADDL3 4(P), (P), R1 + 5347 
51 D7 00672 DECL = ee 
51 53 D1 00674 CMPL _—sLBN, R1 : | 
19 18 00677 BLEQU 66$ : 
50 08 CO 00679 64$ ADDL2 #8, P : $350) 
E5 11 0067C BRB ; 5340) 
00000000 EF DD 0067E 65$ PUSHL OUTPUT_FAB : 5355 
000000006 8F DD 00684 PUSHL  #BACKUP$_BADBLOCK : | 
000000006 02 FB DOgah CALLS #2, FILE-ERROR : 
04 00691 RET ; 9354) 
53 D6 00692 66$ INCL _LBN : 5334) 
58 53 D1 00694 67S CMPL = LBN, R8 : 
B5 1B 00697 BLEGU 62$ F 
52 08 CO 00699 ADDL2 #8, Q + 5359 
98 54 59 Fe 0069¢ 68$: AOBLSS RI, I, 61$ ; 3350 
E4cD sCF 00 FB O06A1 69$: CALLS #0, CLOSE_RESTORE : 5372 
000000006 00 by PR Bpeag CALs ot. GET FILE ATTRIBUTES toe 
00000000" EF 06 £1 OO6AF BBC #6, QUAL+13, ~72$ : $379 
- — Gt 00000000' ef 53 00687 B1TB QufPuT_RECATTR, #240 ; 5380 
' 1 ROT #16, OUTPUT_RECATTR+8, EOF_SIZE + 5386 
ee terrempgsinpen Voge 00000000' FF gf Mitte TSTW QUTPUT_RECATIRG12 : 5387 
2 if O06CF BNEQ 0$ : 
50 D7 00601 DECL  EOF_SIZE : $388 
00000000" EF 30 Dt 90605 70$: CML RO, OUTPUT_ATTBUF +92 ; 3390 | 
50 00000000° EF Ni aoepe MOVL § OUTPUT_ATTBUF+92, RO : 
00000000" éF 0 06 O6E 71$: MOVL OUTPUT_ATTBUF +92 : | 
gg towonney Beet Pots eet Rite Sa Seni 
50 AO 00000000' EF 00 O6F3 MOVL OUTPUT ATTBUF+80, 80(BUFFER) > 5393 | 
54 Ad 00000000" FF B FD MOV OUTPUT ATTBUF +84. 84 (BUFFER) : 3395 
OF 00000000" EF 3 El 0705 #3, COM_FLAGS, 73$ ; 5401 | 
00000000° F 93 O70 TSTB  QUAL+15 ; | 
F 1 eB i CALLS 4 ASSIGN_VERIFY_CHANNE ; toad 
pee CF 99 ts fie 73$: CALLS #0, 1N TIACIZE_ANB_SELEC : 5408 | 
06 31 a794 BRW 94 : | 
39 04 a7 o2ne E1 00727 74%: BBC #1, 4(R7), 778% ; 5411 | 


H 14 ~ -742 Page 133 
hope :21:13 -YAX=11_Bliss-32_ v4.0 ALY 
set Vengepn 1387 90:21:33 YBACKUP-SRESRESTORE 852¢1 | 
|vB2-006 RESTORE ONE RECORD - restore save set record 5 Sep-19 the 23 aie : $413 
00000000" EF 95 007 Bee” be? quaters, 758 ; 5416, 
’ EF E1 oF . , 78S : | 
gt anognns: CARBS BE Fy MRE Lair 
a Ff 1 744 75$: 4 15” Py 
2E 00000000" EF os nooooe OF BE 20%4 TSTB = QUAL* ate, 
= 6 18 r36 BRe 78S £3023, 
08 £0 9 é 76$: BBS is QUAL+10, 78$ ; 3033 | 
17 00009000" EF 6 F Boe CALLS #0, CREATE_DIRECTORY : 5413, 
“ 3 1 Ores 7$: BBC ae QUAL+10, 78 + a3 
‘oboe 5 ty 60 Fa O75 rs Rs 48 SELECT_INCREMENTAL ~~ 
19 05 50 £9 Berle ms: CALL #0. CREATE_OR_OPEN_F ILE : 3376 | 
wr 00 SC OOvvA 798: ROVE #0, (SP), #0,-#64,~ACL_FIB | 
0040 8F 00 °F 0000000" EF -< grat 2 #32, _ACL_FIB+2 i 3448 
SUG moor SEES BEE HBR aMieHP og : ot 
"® 90000000" EF 09000000" aa aot MOVW —QUTPUTZATIBUF +84, ACL=FIB+8 : 3478 | 
ae Reta OV. QUTPUT_NAM home 
$0 00000090" EF BO OAD gOS: HOV. OUTPUT NAM. RO - 
ee BRR a a elie is 
. $ CB @ - - 54 | 
Scelt Ss S a pee sat 
08 000" EF —— 007D8 CR ; | 
90000000" EF 40, BF 3E oorves ROVAB’ ACL “FIS-"ACL“F 18, DESCR#G : 3488 
00000000" EF 44444 ef M3 007F0 STW OUTPUT LACLSEGHENT ; | 
3 12 007F6 BN : 
an? 31 007F8 828: BRW 948 a ia ses 
F5 00000000" EF 03 ED bonne aS: BLBS OUfPUT LAGS. B48 5 3467 
EP 00000000" OS ED O080A BBS #3, OUTPUT FLAGS, 84$ E5468, 
nT nnn0000" EF Fe aaelg Sle ufrtT Fhe sue 
DE 18 0081 16. 828 3 
90000000° EF 01 £0 OOBIA 84s: BBS AT, QUAL YG, 828 : 348 
78 00000000" EF eo Fk OO82A B1CB2 464, QUIPUT FLAGS : 32Re 
00" #2359304, 
sony. ‘ ap 00240008 4 oF O08 ROVAB Duin act § ATR_DESC+4 : 5c89 
: FC AD OD t CLRL PUT CHAN, RO é 
gp 20000000" FD bt 908e9 CAPL m0, #isior : | 
OOOTFFFF © BF 25 TF 00850 issu 828. hed 
t 008s BUSHAB ATR, DESC 
eee fe. oe : 
7E De 00859 ACL_FIB_DESCR 
00000000" ¢F oF O861 hee “(s) ° : 
c 8 HHS ithe ip : 
38 DD 00868 PUSHL = RO 


ie -11 Bliss-32 V4.0-742 
ig-fep-1 t BEES | PaNc EL Ob tege 2g Ms. 05 762 
VO0-000 RESTORE ONE RECORD - restore save set record =3007 138s eae} f 
FE De BORA EAT ts #2, STA_Q10V 
000000006 00 4 re : cna ss. 
F4 3 : 5 oe PUSHAB ATR DESC 
7E 7¢ Q 7A CLRO = ($B) 
Ce re th PUSHAB ACL FIB_DESCR 
—— t f ge CLRQ. = (SP) 
AD 9F 008 PUSHAB 1088 
- DD 008 PUSHL #54 
50 DD 00888 PUSHL RO mA 
cE Pe ? eure aH aaSyS$al0w 
FB OO88F CALLS + Oasys 
Rm Be 
cs 2 ge a898 MOVZWL 10SB, STATUS 
52 EC AD 3¢ 09 C OSB 
if 2 ee ae nea 
aaa tt o, SOBAE mpY OUTPUT_ACLSEGMENT, ATR_DESC 
D 00000000' EF 80 OO8AC 88$: mMOVvW ut TOACLSEGM 
HB anooomys GBs EY at eM it arc, am, peseo 
FB AD 00000000" E MOVL © OUTPUT AC 
BS: er BS Rone TPUT_CHAN, RO 
goons a ear 
vase ete: a § 1F 00801 BLssu 89 
$3 D4 008D3 CLRL = = (SP) 
F4 AD OF 00805 PUSHAB ATR DESC 
7E 7C 00808 (SP) 
EF OF Obape BUSHAB ACL FIB_DESCR 
ae 7¢ b08e CLRQ. = =( SP) 
3 OF Ef PUSHAB 10SB 
- 36 DD itt PUSHL #54 
50 DD 00869 PUSHL RO 
bf BS itt CALLS #12, STA_QIOW 
000000006 00 C FB OOBED AL 4 
E 04 OO8F6 89S:  CLRL -(SP) 
F4 =OAD OOF a PUSHAB ATR DESC 
FB - 
i: be , FD CLRL (SP) hia 
' EF 9OF OOBFF PUSHAB ACL_FIB_ 
senate E 3 § 0 CLRQ. = (SP) 
D OF 8907 PUSHAB 1088 
- 3 DD 809k PUSHL #5 
50 DD 0090C PUSHL RO a 
f Hs 0316 ts vide aaSyS$alow 
ese 8 917 90$: VL RO, STATUS 
¢ 9 SatA 91$:  BLBC SI wu £13386 
5 - $ i b924 928: Stee Tats, 93$ 
. "  BRW 
OF By 00057 938: TPUT_ACLSEGMENT 
eueneoee” iH A oe a8: BicB2 oy OUTPUT_FLAGS 
00000000' EF 
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Bete Se te Se Se 
Pete Se Se Se Se Se 

Bete Se Se Se Se Se 

Pete Se Ge Se Be Se Se Se Be Be Be Be Se Se Se Se Be Se Be Be Se Be 

Sete te Se Se Se Se Ge 

Sete te Se Se Sete Ge te 


(20) 


14 
ve set 1B-Sep-1 
RECORD = restore save set record -Sep-1 


se. 


04 009 
7 0D 00935 95$: 
000000006 00 34 F 9 
00000000" 4 ° 95E 
1 944 
04 $3¢8 
01 00000000" EF 03 Fi baer 96$ 
11 00000000" EF E 950 97% 
09 00000000" EF 63 § $987 
00000000° fr 3 944 
04 90967 
01 00000000" EF 01 4H Bas8 98$: 
79 00000000" EF 06 A 0971 99$: 
00000000" ‘EF 40 8F 8A 00979 
F4 = AD Sozsoors 8F 00 343 
F8 = AD ? AE 9E +94 9 
FC AD 04 bear 
50 00000000" EF DO 00991 
OOO1F FFF 9 D1 00998 
§ 1F Open) 
E 04 Bead 
F4 AD 9F OO9A3 
7E 7C O09A6 
7E D4 O09A8 
00000000" cr 9F OO9AA 
E 7C 00980 
EC AD 9F 0098 
36 DD 0098 
50 0D 00987 
7E 04 00989 
000000006 00 oc FB Opoee 
21 11 009C 
7E D4 009C4 1008: 
F4 AD OF 9533 
7E 7C 009C9 
00000000° fF OF 009¢b 
EE 7c 00908 
EC AD 9F 0090 
36 DD 00908 
rh! DD OO9DA 
E 04 0090C 
000000006 9F of F 43 
32 8 D 9€5 1018: 
5 3 98 
5 EC AD 3C OO9EB 
? 3 ED OO9EF 
01 00000000" EF 0 Ft are 102$: 
F4 AD 00000000" EF 80 O09FB 1038: 
F6 = AD 1F 4 A 
F8 AD 00000000" EF D A 
AD D4 QOAOF 
50 00000000" EF DO OOAI2 
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wr 
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R7 
#1, GET_FILE_EXT_ATTRIBUTES 
QuEPUT_ACLSEGHENT 
6$ 
#3, COM_FLAGS, 97$ 
QuTPUT FLAGS, 98$ 
#3, OUTPUT FLAGS, 98$ 
QufPUT_FLAGS 
98$ 
#1, QUAL+14, 99$ 
#6, OUTPUT_FLAGS, 102$ 
aol QUTPUT FLAGS 
#2359304, ATR_DESC 

Y_ACL, ATR_DESC+4 
ATR_DESC+ 
OUTPUT CHAN, RO 
RO, #131071 
106s 
-(SP) 
ATR_DESC 
-(SP) 
-(SP) 
ACL_FIB_DESCR 
-(SP) 
10SB 
#54 
RO 


=(S 
#12, STA_Q10W 
101 


= (SP 
ACL_FIB_DESCR 
-(SP) 

10SB 

#54 
R 


QuTPUT ACL SEGMENT. ATR_DESC 
#31, ATR_DESC+ 
OUTPUT gg: ATR_DESC +4 


ATR_DESC+ 
OUTPUT_CHAN, RO 


Pe Se Se Se Se Se Se Se Ge Se Se Ge Se Ve Se Ge Se Ge Ge Se Se Ge Ge Ge Fe Se Ge Ge Se Ge Fe Se Fe Fe Fe Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Be Be Be 


OOO1FFFF 


000000006 


000000006 


000000006 
00000000' 


3; Routine Size: 


2711 bytes, 


8F 
F4 
00000000° 
EC 
00 
F4 
00000000° 
EC 
oF 
52 
of 
2 EC 
1D 
00000000° 
000000006 
00 
EF 
00000000' 


Routine Base: CODE 


HY 


oO 


oco7g 
fF FoworvIranrwoocm@rorun 


fe 
7E 
cf 
E 
AD 
36 
te 
oC 
si 
E 
AD 
7E 
7E 
ti oF 
—E 7¢ 
AD 
36 
30 
7E 
oc 
50 
52 
ae 
35 
EF 
8F 
03 
20 
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108$: 


3B¢ 29:20:28 


AX-11 Oi ies 
BACKUP. SRei 


RO, #131071 
its ss: 


oan OOP m 


ASAS 


MBACKUPS WRITEERR 
E-ER 

#35, OUTPUT _FLAGS 

OUTPUT_ACLSEGMENT 
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16-Sep-1 


REST Restore a save set 4 00:21:13 AX-11 Bliss-32 V4.0-74 
VOe-000 RESTORE _VERIFY_REEL = verify save set volume 7300-1382 $9 e098 BACKUP’ SREIRESTORE 85201 
1 6 ZSBITL ‘RESTORE _VERIFY_REEL = verify save set volume’ 
6 $1 Boat pontine RESTORE“VERIFY_REEL: NOVALUES 
6 § 1e¢ 
640 ' 
641 ' FUNCTIONAL DESCRIPTION: 
ek : This routine is called at the end of each reel to verify that reel. 
1 644 ' INPUT PARAMETERS: 
1 645 ‘ NONE 
1 oe | ! 
1 64 ! IMPLICIT INPUTS: 
1 646 ‘ NONE 
1 649 : 
1 5650 ' OUTPUT PARAMETERS: 
1 202) $ NONE 
1 $36 : 
1 565 ! IMPLICIT OUTPUTS: 
5654 ! NONE 
5655 ' 
5656 ' ROUTINE VALUE: 
seat ! NONE 
658 ! 
659 ' SIDE EFFECTS: 
660 ! NONE 
aE 
$§ 
64 BEGIN 
6 LOCAL 
3 6 STATUS, ' Status variable 
3 6 10SB: VECTORC4,WORD], ! 1/0 status block 
3 6 FIB: BBLOCKC10), i FIB 
6 FIB_DESC: VECTORC2), } Descriptor for FIB 


SAVE_OUTPUT_BAD, ! Save for OUTPUT BAD 
LOCAL_SAVE: BBLOCKCOUTPUT_END-OUTPUT_BEGJ; !“Save area 


! If a file is accessed, deaccess it for the duration of the verify pass to 
avoid having the file open for the entire time. 


if ,OUTPUT_FLAGSCOUTPUT _OPEN] AND NOT .QUALCQUAL_PHYS] 


SEEK EW 


BEGIN 
STATUS = C$Q10W( 
FUNC=I0$_DEACCESS, 
CHAN=. OUTPUT _CHAN, 
10SB=i0S8) ; 
.STATUS THEN STATUS = .10SBLO); 
NOT. STATUS 


FILE_ERROR( 
BACKUPS ct SEOUT + STSS$K_ERROR, 


STATUS); 


vvuvD 
FVFUSVSVSUSUSUS ISU SUSUS USUI SUSI STASIS 


PREX_EQXAPARAAAXA AAA AAA AAA AAI AAA AOS 
CoCo CoC O0 08 SI NIN NIN NNN 
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IF 
IF 
THE 
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VOe-008 RESTORE _VERIFY_REEL = verify save set volume 37360718 4 3 f0 88 YBACKUP. SRE RESTORE .832;1 a 
; 4159 693 
; 4160 694 ! Readjust context. 
; 4161 695 t 
$ $186 696 QUAL COUAL COMP) = TRUE; 
: 416 69 IF .QUALCQUAL PHYS] THEN VERIFY_FAB = .OUTPUT_FAB; 
3 4164 698 CHSMOVE (OUTPUT _END-OUTPUT_BEG, OUTPUT_BEG, LOCAL_SAVE); 
3; 4165 4 SAVE_OUTPUT_BAD = .OUTPU : 
; 4166 O 2 CHSFILL(O, OUTPUT _END-OUTPUT BEG, OUTPUT_BEG); 
: 416 701 OUTPUT_BAD = .SAVE_OUTPUT_BAD; 
 oie9 108 | 
3 $129 794 : Do the verify by calling the RESTORE module. 
: 417 70 RESTORE(); 
Bette io? 
: 4175 709 ' Restore context. ‘ 
3 4176 710 H 
3 4177 $711 QUALCQUAL_COMP] = FALSE; 
3 4178 2718 CHSMOVE (ODTPUT_END-OUTPUT_BEG, LOCAL_SAVE, OUTPUT_BEG); 
et 
> 4181 5715 ! If necessary, re-access the file that was accessed at the end of the 
: ret} ay previous reel. 
> 4184 5718 IF .OUTPUT_FLAGSCOUTPUT_OPEN} AND NOT .QUALCQUAL_PHYS) 
3 4185 5719 THEN 
3: 4186 5720 BEGIN 
: 4187 2721 FIBCFIBSL_ACCTL] = FIBSM_WRITE OR FIBSM_NOWRITE OR FIBSM_NORECORD; 
: 4188 57 ¢ FIBCFIBSW_FID_NUM] = .OUTPUT_NAMCNAMSW_FID_NUM); 
3 4189 572 FIBCFIBSW-FID-SEQ) = .OUTPUT-NAMLNAMS$W_FID-SEQ]; 
3 4190 2788 FIBCFIBSW-FID-RVNJ = .OUTPUT_NAMCNAMSW_FID-RVNJ; 
3 4191 139 F1BDESCEO) =710 
: 419¢ 5726 FIB-DESCL1) = FIB; 
; 419 P 5727 STATUS = C$Q10W( 
+ 4194 P 5728 FUNC=I10$_ACCESS OR IOSM_ACCESS, 
3: 4195 p He +4 CHAN=,OUTPUT_CHAN, 
: 4196 P 5730 10SB=10S 
+ 4197 5731 P1=F 1B DESC); | 
: 4198 373¢ IF .STATUS THEN STATUS = .10SBC0]; 
3 4199 573 IF NOT .STATUS 
3; 4200 5734 THEN 
3 4201 5735 4 BEGIN 
3 4 08 236 4 FILE_ERROR( 
3: 420 7 4 BACKUPS$_CONTINUE, 
> 4204 738 4 .OUTPUT~FAB, 
: 4205 5739 4 . STATUS); 
: 4 06 5740 4 CLOSE _RESTORE(); 
: 420 art END; 
: 4208 rg END; 
3 4209 574 END; 


OFFC 00000 ~ENTRY RESTORE_VERIFY_REEL, Save R2,R3,R4.R5,R6,- ; 5637 
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322 bytes, Routine Base: CODE + 2750 


3; Routine Size: 


Rest 
0 INIT 
; 4211 744 
3 4 \§ 745 
> 421 048 
> 4214 74 
3; 4215 748 
3 4 1 749 
: 421 750 
; 4218 5751 
3; 4219 or26 
; 4220 575 
: 4221 754 
3 4 § 755 
3 4 756 
3 4224 5757 
3: 4225 5758 
3: 4226 5759 
3; 4227 5760 
3; 4228 5761 
3 4 $ 2766 
3; 4230 576 
Bh Oe 
3 1538 5766 
3; 4234 5767 
3; 4235 5768 
3 $se8 5769 
3; 4237 5770 
3; 4238 5771 
3; 4239 arte 
3; 4240 577 
3: 4241 5774 
3 4242 5775 
3 42463 2076 
3 42446 577 
3 4245 5778 
3 re ye 5779 
: 4247 5780 
: $562 278) 
3 4249 4 t4 
3; 4250 578 
3: 4251 5784 
3 4 25 5785 
3: 425 5786 
3: 4254 Hat 
3 4255 788 
3; 4256 5789 
3: 4257 5790 
3; 4258 5791 
; 46259 2738 
: 4260 579 
3: 4261 5794 
3 4 o¢ 5795 
3: 426 2796 
3 4264 579 
3 4265 5798 
3: 4266 5799 
3 4267 5800 
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STORE = initialize restore operation -Sep-1984 


ZSBTTL NIT RESTORE = initialize restore operation’ 
GLOBAL ROUTINE INIT RESTORE: NOVALUE= 


'e¢ 


deste 1 DESCRIPTION: 
This routine initializes the restore module. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

OWN storage initialized. 
ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
Find the output qualifiers block. 
OUTPUT_QUAL = .QUALCQUAL_OUTP_LISTI; 


IF _ .COM_FLAGSCCOM_VERIF YING 
THEN 
BEGIN 


! This is a verify pass. Use the verification FAB as if it were the output 
} FAB during the verify pass. 


ny = ,VERIFY_FAB; 
TP QUALCQUAL” OSAV) ~ 


ASSIGN_VERIFY_CHANNEL (FALSE) 


ELS 
BEGIN 
LOCAL 
REF BBLOCK; ! Pointer to real output FAB 
FAB = OUTPUT QUAL[Q AL -PARA FC); 
OUTPUT _F ABLE ABSB _FNS BEF ABSB_FNS); 
TPUT~F ABLFABSL~FNA BCFABSL~FNA): 
Se ee Te int NAMSB_ESL] = .BBLOCKECFABLFC_NAM], NAMSB_ESL); 
BBL OCK OUTPUT"FABLFC"NAM), NAMSL— -ERh = {BBLOCKCFABLFC"NAM],. NAMSL~ “ESA: 


.0-742 
E.832;1 


———- - ———-- — ——--4y 
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REST Restore a save se -$ep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 Page 142 
VO-000 INIT_RESTORE - initialize restore operation ~3007} 387 ieee EBACKUPSREIRESTORE 85201 ~ (22) 
2388 BO evseew” 

3 4 $3 j E 

3 4271 04 OUTPUT_FAB = .OUTPUT_QUALCQUAL_PARA_FC); 

3 4 ie; 05 END; 

 o5he B07 

3; 4275 44 OUTPUT_FLAGSCOUTPUT_V_FIRSTJ = TRUE; 

HY : re ras OUTPUT_NAM = OUTPUT_FAB FC_NAM]; 

; 4 18 2811 OUTPUT_FLAGSCOUTPUT_NONSEQ_INJ = FALSE ; 

3 2 st S818 } If this is a compare or verify operation, get a compare buffer. 

34 o¢ 5815 IF .QUALCQUAL_COMP] THEN COMPARE_BCB = GET_BUFFER(); 

3; 428 5816 

3 4284 5817 

; 4285 3818 IF .QUALCQUAL_PHYS] OR .QUALCQUAL_IMAG) 

3; 4286 581 THEN 

3: 4287 ens) BEGIN 

; 4288 5821 LOCAL 

3; 4289 2856 DESC: adh a EP ! Descriptor for DEVCHAR 
3; 4290 582 DEVCHAR: BBLOCKCDIBSK_LENGTH],  ! Device characteristics 
: 4291 5824 STATUS; ! Status variable 

3 4 3g e852 

3; 429 826 

3 4294 5827 4 IF NOT (.COM_FLAGSCCOM_VERIFYING] AND .QUALCQUAL_OSAV]) 

3: 4295 5828 3 THE 

3: 4296 ob¢e 4 BEGIN 

3: 4297 5830 4 

; os3s 283) ? Strip everything but the device from the expanded string. 

; 4300 5535 4 OUTPUT_NAMLNAMSB_ESL] = .BBLOCKCOUTPUT_QUALCQUAL_DEV_DESC], DSCS$W_LENGTH); 
3 4 2B3¢ 4 

3 rt 2836 ? Assign a channel to the output device. 

3 4305 5838 4 STATUS = ASSIGN_OUTPUT_CHANNEL (OUTPUT_QUALCQUAL_DEV_DESCJ, OUTPUT_CHAN, 0, 0); 
3; 4306 5839 4 IF NOT .STATUS 

3: 4307 5840 4 N 

3; 4308 5841 4 FILE_ERROR( 

3; 4309 2066 & BACKUFS_OPENOUT + STSSK_SEVERE, 

3 4310 5843 4 -OUTPUT_FAB, 

3 $31! 5844 4 - STATUS); 

7 4 \¢ 5845 END; 

ae as 

3 46315 848 IF .QUALCQUAL_PHYS) 

: 4316 849 THEN 

3 4317 850 4 BEGIN 

3 ozi8 5851 4 : F 

3 $333 2836 : H Get the device characteristics of the output device. 

3 4321 abe 4 DESeeo) = DIBSK_LENGTH; 

3 $355 282? 4 DESCL1) = DEVCHAR; 

3; 43 528 4 STATUS = $GETCHN(CHAN=.OUTPUT_CHAN, PRIBUF=DESC); 

3 4324 5857 4 IF NOT .STATUS 
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me 
nm 
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zw 
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t 
T 
: 4325 28 4 THEN 
3; 4 8 59 4 FILE_ERROR( 
3 4 0 4 BACKUPS_GETCHN, 
3 : : °) ? ‘ “oureut yi AB 
3; 4350 $08 4 
: 4331 864 4 
: ? ¢ bse ? } Save the geometry data. 
: 4 67 4 dutpuT -DEVGEON DGn. SECTOR ] = .DEVCHARCDIBS$B_SECTORS]; 
3: 4335 He 4 OUTPUT. DEVGEOMLD ie .DEVCH st ay TRACKS); 
3 $3 $ 2869 4 OUTPUT"DEVGEOM DOM CYLINDER $1"= = ,DEVCHARLDIBSW_CYLINDERS); 
; ‘ 4 2B 4 OUTPUT—DEVGEOMCDGM_MAXBLOCK .DEVCHARCDIBSL_MAXBLOCK); 
5h ee AG Gre wr tel Gone 
3 ; ve e Da oc ata. 
; t3a3 ate: é ir OUTPUT_BAD EQL 0 
: : L 
; a3 2g7s é OUTPUT BAD GET_BADBLOCKS(.OUTPUT_FAB, .OUTPUT_C EVCHAR) 
3 & = x LOCKS .OU _FAB, .OUTPUT_CHAN, DEVCHAR); 
3 4345 5878 4 
: 1309 2Bn0 ie be theekd te 8 d 
: ompute the ocks to be expected. 
t 4348 5ag1 4 pees , 
3 4349 2882 4 OUTPUT -FLAGSCOUTPUT OPEN] = TRUE; 
3 4350 5883 4 OUTPUT“BLOCK = 0; 
3 4351 5884 4 OUTPUT “MAXBLOCK = .DEVCHARCDIBSL_MAXBLOCK] - 
3 $328 5885 4 IF NOT~.BBLOCK CDEVCHARCDIBS$L_DEVCHAR), Bevsv. “RcT) 
; $522 e536 . AND OPE VEARED IB _MAXBLOCK] GTRU SMALL DISK ~ 
: 4355 5888 4 OUTPUT_MAXBLOCK = .OUTPUT_MAXBLOCK - 
3 4356 2889 4 EVCHARCDi8$B. SECTORS) 
: 4357 890 6 ((. DEVCHARLDIB$B_SECTORS * 
3; 4358 5891 6 ARCDIB RACKS] * 
3 4359 2892 5 -DEVCHARCDIBSW-CYLINDERS]) / 
3 4360 5893 4 . DEVCHARCD IB$L_MAXBLOCK)); 
: 4361 5894 3 END; 
5 $266 5895 2 END; 
3 436 5896 1 END: 
~EXTRN SYSS$GETCHN 
003c 00000 -ENTRY INIT PES Tone Save R2,R3,R4,R5 : 5745 
55 00000000G 00 9E eit MOVAB’ FILE-ERROR, R5 3 
54 00000000° EF 9E 000 MOVAB OU 3 
5E 84 AE 43 0010 MOVAB -124( 3 
OC AG FEAO C4 00 00014 MOVL aval ea, 6 output _QUAL > 577 
39 FFI6) =C 03 £1 OOO1A BBC r) LAGS, ; 577 
64 oopc C4 0 9020 MOVL vE EAIFY. FAB OUTPUT_FAB : 578 
FE 4 9 0 TSTB +15 ; 578 
9 18 4 9 BGEQ ; 
E D4 00028 CLRL -(SP) ; 5789. 
0943 —sCF 01 FB 00 p CALLS #1, ASSIGN_VERIFY_CHANNEL : | 
2D 11 000 BRB : 
50 0c AS DO 00034 18: MOVL OUTPUT_QUAL, RO > 5795 | 
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RESTORE = initialize restore operation 
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13 AX=11 BL isg-32 V4.0-742 
26 BACKUP. SRCJRESTORE .B32;1 
oaneut FAB R 

Se CFABY, 99 (RO) 

44(FAB), 44(RO) 

159(FABS, 159(RO) 

J0¢FAB) , 160(RO) 

OUTPUT_QUAL, RO 

4(RO) ,“OUTPUT_FAB 

#2, OUTPUT FLAGS 

#148, OUTPOT_FAB, OUTPUT_NAM 
#1 GyTPuT_FLA $+1 

ays 

#0, GET_BUFFER 

RO. COMPARE _BCB 

a5, aUAL #18 5$ 

#3, QUAL+10, 5$ 


#3, COM_FLAGS, 6$ 
QuaL +15 
OUTPUT_NAM, R1 


OUTPUT-QUAL, RO 
16(RO)> 11(R1) 


SP 
OUTPUT _CHAN 
#4, ASSIGN_OUTPUT_CHANNEL 
RO, STATUS 
STATUS. 7$ 
OUTPUT_FAB 
BGACKUPS _OPENOUT +4 
#3, FILE-ERRO 
#5, QUAL712, 8$ 
#116, DESC 
DEVCHAR, DESC+4 
-(SP) 
DESC 


-(SP) 
OUTPUT CHAN 
#5, SYSSGETCHN 
RO, STATUS 
STATUS, 9$ 
STATUS 
OUTPUT_FAB 
ACKUP$_GETCHN 
- FILE-ERROR 
DEVCHAR+8, OUTPUT _DEVGEOM 


DEVCHAR+1{2, OUTPOT_DEVGEOM+4 
OUTPUT BAD 


SP 
OUTPUT_CHAN 
OUTPUT "FAB 
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if-f0 sen~ 138% 90: qi: i AX=11 Bliss-32_V4.0-742 


re a save set 
RESTORE = initialize restore operation -Sep-19 BACKUP. SRCJRESTORE .B32;1 


000000006 00 : F 116 CALLS , GET_BADBLOCKS 
1 AG p 11D MOVL ; OUTPUT_BA 
FC AG 1 121 10$: B1SB2 OUTPUT FLAGS 
14 A& 04 001 3 CLAL i 
18 AG 70 «AE 01 ¢ 1 SUBL3 : "DEDCHARS112, OUTPUT_MAXBLOCK 
eC 91 AE €8 001 6 BLBS 
00001000 = &F 0 AE 01 001 CMPL DEY VEHARST{2. #4096 
22 1B 0013A LEQU $ 
50 08 AE 9A 0013C¢ MOVZBL DEVCHAR+8, RO 
51 09 AE 9A 00140 MOVZBL DEVCHAR+9, R1 
50 51 g 00144 MULL2 1, 
38 OA AE C 90147 MOVZWL DEVCHAR+10, R2 
5 52 C4 00148 MULL2 . 
50 70 AE C6 OO14E DIVL2 DEVCHAR+112, RO 
53 08 AF 9A 0015 MOVZBL DEVCHAR+8, R3 
50 53 50 C7 00156 DIVL3 RO, R 
18 Ad 50 C2 0015A SUBL2 RO, OUTPUT_MAXBLOCK 
04 0015E 11$: = RET 


3; Routine Size: 351 bytes, Routine Base: CODE + 2892 


5 


4 1 
RESTOR Restore a save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 V4.0-742 
yo2 008 RESTORE _HANDLER = condition handler for restore §-900- 1382 30:25:58 EBACKUPSRe RESTORE .B32;1 
3 4 £37 1 ZSBTTL ‘RESTORE HANDLER = condition handler for restore’ 
; : 38 : GLOBAL ROUTINE RESTORE_HANDLER(SIG,MECH)= 
: 4 500 1 !+4 
3 4 901 1! 
3 4 o06 1 ! FUNCTIONAL DESCRIPTION: 
3 4 905 1! This routine is established as a handler for routines RESTORE, LIST, 
; ? ape } : and ANALYZE. It determines the recovery from a fatal signal. 
3; 437 2908 1 ! INPUT PARAMETERS: 
3 4 5907 1! $1G - Standard VMS condition handler parameters. 
3 4 $ 2308 1! MECH - 
3; 437 909 1! 
3: 437 5910 1 ! IMPLICIT INPUTS: 
: 4379 5911 1! NONE 
; t+} at 1! 
3; 4381 591 1 ! OUTPUT PARAMETERS: 
: 438 914 1! NONE 
3: 438 915 1! 
3; 4384 5916 1 ! IMPLICIT OUTPUTS: 
3; 4385 917 1! NONE 
; 4386 318 1! 
3 4387 5919 1 ! ROUTINE VALUE: 
3; 43 5920 1! VMS status code (SS$_CONTINUE or SS$_RESIGNAL). 
3; 4389 5921 1! 
3; 4390 59 ¢ 1 ! SIDE EFFECTS: 
: 4391 59 1! NONE 
3; 439 5924 1! 
: oes 5925 1 !<- 
3 4394 5926 1 
3; 4395 5927 2 BEGIN 
3; 4396 5928 § MAP 
3; 4397 2362 $1G: REF BBLOCK, ! Signal parameters 
3; 4398 5930 MECH: REF BBLOCK; ! Mechanism parameters 
3; 4399 5931 EXTERNAL LITERAL 
3; 4400 2088 BACKUP$_SSCHANGE, 
3; 4401 593 BACKUPS_READERRS, 
3; 440 eore BACKUPS_POSITERR; 
3; 440 935 
3 4404 aae8 
3; 4405 593 IF RESTARTABLE_CONDITION(.SIGCCHFSL_SIG_NAME]) 
3: 4406 5938 THEN 
3 4407 5939 IF 
3 4408 5940 -SIGCCHFSL_SIG_NAME] EQL BACKUPS_SSCHANGE OR 
3 4409 5941 “sie CHFSL_SIG_NAME] EQL BACKUPS_READERRS OR 
3 4410 294¢ ~SIGCCHFSL-SIG-NAME) EQL BACKUPS-FATALERR OR 
3 4411 594 -SIGLCHFSL_SIG_NAME) EQL BACKUPS_POSITERR 
3 stg aoee THEN 
3 441 945 BEGIN 
3 44146 anes IF .RWSV_VOL_NUMBER EQL 1 
3 4415 rh THEN 
3 ret Bee . GET_RESTART(.S1G, %B°110") 
3: 4418 $950 GET_RESTART(.SIG, %B°111"); 
3 4419 951 RETURN SS$_CONTINUE; 
: rr} 2326 END ; 
3: 6421 95 


RESTOR Restore a save set Ip-fe -1984 00:21:13 AX-11 Bliss-32 v4.0-74 47 
WO 000 RESTORE_HANDLER = condition handler for restore Sep-19 4 90: 6:26 BACKUP. SRCI SRE T ORE aso Page 335 | 
3; 44 ¢ 954 
3 44 955 SS$_RESIGNAL 
3 4426 956 END; 
-EXTRN BACKUP$_SSCHANGE 
~EXTRN BACKUPS$_ READERRS 
.EXTRN BACKUPS$— _POSITERR 
000C 00000 ENTRY a iso Save R2,R3 : 5898. 
5 Os AC 00 8808 MOVL $ 3 5937. 
5 4 A2 DO 000 MOVL 4(R2), : | 
53 DD 44 PUSHL 3 
00000000G 00 01 FB p06 CALLS 1, RESTARTABLE_CONDITION é 
40 50 €9 Baby BLBC 4 » 4$ 3 
00000000G 8F 3. » gepie ier Ree TBACKUPS. SSCHANGE F 5940 | 
00000000G 8F 33 ot $4 bror Re #BACKUPS_READERRS 3: 5941) 
00000000G_ 8&F 38 | 0003" beer ae #BACKUPS_FATALERR 3 5942) 
00000000G_ 8F 53 D1 00031 CMPL R3, #BACKUPS$_POSITERR 3 5943) 
1C 12 00038 BNEQ 4$ 3 
01 00000000°' EF 81 OQ0O03A 1$: CMPW RWSV_VOL_NUMBER, #1 7 5946. 
04 12 00041 BNEQ 2$ r 
06 0D 00043 PUSHL #6 ; 5948. 
bs 11 00045 BRB 3$ 3 
07 DD 00047 $$ PUSHL #7 ; 5950) 
52 DD 00049 3$ PUSHL os 3 
000000006 00 02 4 00048 CALLS #2, GET_RESTART F 
50 01 OD Boas MOVL #1, RO 3 5951) 
9 0005 RET ‘ 
50 0918 S8F 3C 00056 4$: MOVZWL #2328, RO 3 5956 | 
04 00058 RET ; 


3; Routine Size: 92 bytes, Routine Base: CODE + 29F1 


@ a save set Sep-1984 AX-11 Bi ies -32 V4.0-742 
ORE - nein restore routine rete ets 7 90: 28; i BACKUP. SROi RESTORE. 832;1 


ZSBITL "RESTORE = main restore routine’ 
GLOBAL ROUTINE RESTORE: NOVALUE= 


lee 

4 

i FUNCTIONAL DESCRIPTION: 

H This routine is the driver for restore, compare, and verify operations. 


SESOSANA OO 
FUWNOOON a 


i INPUT PARAMETERS: 
: NONE 


Soe 


ono 


i IMPLICIT INPUTS: 

. NONE 

i OUTPUT PARAMETERS: 
NONE 


i IMPLICIT OUTPUTS: 
i NONE 


. a 
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wm 
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i ROUTINE VALUE: 
i NONE 


i SIDE EFFECTS: 
i NONE 
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READ 
CONCURRENT {1ST :NOVALUE, 
SAVE: NOVALUE; 


3% 
co 
OCONOM 


BUILTIN 


LOCAL 
CHK_SAVESET : BYTE ; 
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! If this is not a recursive call to do a verify pass, initialize the input 
: save set and establish the handler. 


if Not -COM_FLAGSCCOM_VERIF YING) 


4468 5999 


GIN 

FP_= RESTORE HANDLER; 
INIT_IN_ SAVE (FALSE); 
a ats erent INPUT_WILDSAVE] AND .COM_FLAGSCCOM_EOV) THEN RETURN; 
N 


ELSE CHK_SAVESET = 0 ; 
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BEGIN 
EXTERNAL ROUTINE 

INT IN_SAVE: NOVALUE, 
“BUFFER, 

: Initialize impure storage for restore. 
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K 15 
@ save set 16-Sep-1984 00:21:13 AX-11 Bliss-32 
= main restore routine eet er eeey BACKUP. SRCIRES 
INIT_RESTORE(); 


: Loop over all buffers in the save set to do the operation. 
WHILE (OUTPUT _BCB = READ_BUFFER()) NEQ 0 DO 


If ,QUALCQUAL_SS_ENCRYP] 
THEN 
EGIN 
: If we are decrypting an encrypted saveset and we don't yet have 
! the required decrypt context, do a special scan of the first block 
! to locate the backup summary record, extract the datakey information 
: and initialize the decryption context. 
IF .CRYP_DATA or EQLU 0 
THEN IF ROT (GUALCQUAL_SS_ENCRYP] = CRYPTO_INIDEC(.OUTPUT_BCB)) 
THEN SIGNAL (BACKUP$_BACNOTENC) ; 
ELSE 


BEGIN 
: Make sure that the save set is not encrypted. 
if .CHK_SAVESET 
THEN IF CRYPTO_CHKSAV(.OUTPUT_BCB) 
THEN SIGNAL (BACKUP$_ENCSAVSET) ; 
CHK_SAVESET = 0 ; 
END ; 
If this is an encrypted saveset, decrypt the buffer 


iF .QUALCQUAL_SS_ENCRYP) 
THEN CRYPTO_BECR_BLOCK( .OUTPUT_BCB); 


IF .QUALCQUAL_LIST] AND NOT .COM_FLAGSCCOM_VERIF YING) 
THEN CONCORRENT_LIST(.OUTPUT : 


DEBLOCK(..OUTPUT_BCB> RESTORE_ONE~RECORD); 
OUTPUT _B¢B = 0; 


Finish the operation. 
if .COM_FLAGSCCOM_VERIFYING) THEN OUTPUT_FLAGSCOUTPUT_V_LAST] = TRUE; 


N RESTORE (); 
OUTPUT_FLAGSCOUTPUT_V_LAST) = FALSE; 


! If this is not a verify pass, do the termination for the input save set. 
: Also, note that nothing was restored if this is the case. 

IF NOT .COM_FLAGSCCOM_VERIF YING) 

THEN 


PINLIN SAVE (FALSE); 
IF ROT™.QUALCQUAL_PHYS) 
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ave set 16-Sep-1984 00: 
ain restore routine §-Se0-19 4 90:2 


AND NOT .COM_FLAGSCCOM_FILESEEN 
AND NOT .INPOT_FLAGS INPUT WIL DSAVE 


HEN 
$1G 


END; 
END; 
001C 00000 
54 909000006 00 9E aia 
53 00000000' Ff 4 3 329 
1E FFOE C3 3 3 Sh 
6D 8B aA E 0 36 
7E D4 OOOTA 
000000006 00 01 FB ee pt 
6 FFSC 36 C3 06 E1 000 
01 FFOE ¢ Fe Bo8 9 
4 0002E 
52 01 90 B28 F 1$: 
02 11 00032 
52 94 00034 q3: 
FEOA CF 00 FB 00036 3$: 
000000006 00 00 FB 00038 4$: 
63 50 0D 4 
79 «1 004 
24 FEA2 C 04 €1 0004 
057C 3 DS 00040 
: 12 00051 
63 DD 30033 
000000006 00 01 Fe 0005 
01 04 28 F BR0e 
25 50 €8 0006 
000000006 f DD 00066 
64 1 fo 006C 
1A (1 Boer 
15 26 E9 8 1 5$: 
000000006 00 63 PB 8 ie} 
$8 8) 8 0070 
000000006 8F DD 00 rs 
64 1 FB 000 
2 94 00089 $$: 
09 FEA2 C3 ¢ ee : $: 
000000006 00 63 FB 093 
OF FE9F C3 CE O9A 8$: 
09 FFOE C3 0 3 Ons 
000000006 00 if FB A? 
FIBA F OF ons 9$: 
63 OD 8 


-EXTRN 
-EXTRN 


1:13 VAX-11_Bliss-32_v4.0-742 
28 ¢ 


BACKUP. SRC JRESTORE .B32;1 


NAL ( 
BACKUPS_NOFILES, 1, BBLOCKC.QUALCQUAL_INPU_LISTJ, QUAL_EXP_DESCJ); 


#1, INIT_IN SAVE 
#6. INPUT_FCAGS, 1$ 
COM_FLAGS, 1$ 


#1, CHK_SAVESET 


CHK_SAVESET 
#0, “INIT_RESTORE 
#0, READ-BUFFER 
RO OUTPOT_BCB 


0 
#4, QUAL+14, 5$ 
RYP_DATA_CODE 


OUTPUT BCB 
#1, CRYPTO_INIDEC 
RO, #4, #17 GUAL+14 


RO, 
#BACKUPS$ _BACNOTENC 
#1, LIBSSIGNAL 


CHK_SAVESET, 6$ 
OUTPUT 
#1, CRYPTO_CHKSAV 


#BACKUPS_ENCSAVSET 
#1, LIBSSIGNAL 


PUT BCB 
“i CRYPTO DECR_BLOCK 
4 COM'FLAGS, 9$ 

#1, CONCURRENT LIST 


RESTORE ONE_RECORD 
OUTPUT_6CB 


ted 
— — 4 


ES 


Restore a sa 
RESTORE = ma 


04 


; Routine Size: 262 bytes, 


e set 


n restore routine 


000000006 00 


000000006 
64 


FFOE C3 
FS OA 
EQIA CF 
F4 a 
FFOE C 
000000006 0 
FEAO C 
FFOE C 
FFSC 6C 
FE94 = 
Routine Base: 
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WOON MW OfWOwr 


CODE + 2A4D 
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FB BS 
oF BB 
1 B 
f C 

C6 
FB CA 
8A OOOCF 
EO 00003 
D4 00009 
FB 0000 
EO O00E 
FO OOOFE 
C1 OOOF4 
DD OOOFA 
DD OOOFC 
FB Bei O8 
04 0010 


fa 
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=fep- 


10$: 
118: 


1986 39:20:38 


CALLS 


o 
" sa 
ecw 
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O°@2Dowoaw 
TDwOoroo 
-— o-oo 


wm 


BBS 


BACKUP.SRC 


#2, DEBLOCK 
eae 


#3, COM_FLAGS, 11$ 
#4, OUTPUT FLAGS 
#0, FIN_RE 

#4, OUTPUT_FLAGS 
#3 pyOM.FLAGs, 12$ 


a 
#BACKUPS$_NOFILES 
#3, LIBSSIGNAL 


AX-11 ee 
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Restore a save set 1 43 3°19 4 t 99: 21:13 AX-11 Bliss-32 V4.0-742 
RESTORE = main restore routine -Sep-1984 6:26 BACKUP. SRCJRESTORE .832;1 
; 4548 6078 1 END 
3: 4549 gor8 0 ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
: COMMON 2124 NOVEC, WRT, RD .NOEXE.NOSHR, LCL, REL, OVR.NOPIC,ALIGN(2) 
3; DATA 1 WRT, RD *NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; CODE 1109 NOVER’ *NOWRT, RD, exe, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Pes gt ipa poe Se. at eee Symbols -<------ Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 198 1 1000 00:02.2 


; Size: 
Run Time: 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RESTORE/OBJ=OBJ$:RESTORE MSRC$:RESTORE/UPDATE=(ENH$:RESTORE) 


COMMAND QUALIFIERS 


10907 code + 2480 data bytes 
03:02.3 


Elapsed Time: 09:25.5 
Lines/CPU Min: 2000 
Lexemes/CPU-Min: 24265 


Memor 
Compi 


{a 


Used: 846 pages 
tion Complete 
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